1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16

Public Function DescendingSort(ByRef Data As Variant) As Variant
    Dim i As Long
    For i = LBound(Data) To UBound(Data) - 1
        Dim j As Long
        For j = i + 1 To UBound(Data)
            If Data(i) < Data(j) Then
                Dim Temp As Variant
                Temp = Data(j)
                Data(j) = Data(i)
                Data(i) = Temp
            End If
        Next
    Next

    DescendingSort = Data
End Function

1. 1

Сказка о петузе и зелибобе. На новый лад.

1. 1

- Я так раньше никогда не делала. Мне понравилось. А тебее? - сказала она после того, как я влил в неё свой заряд и, уставший, уселся прямо на ковролин на полу кабинета.

1. 1

We’ve heard your feedback that you want Visual Basic on .NET Core

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21

REM I'm trying to do some simple webscraping in OpenOffice (I usually work in Excel but I'm trying to port 
REM something over for a coworker that doesn't have Excel). 
REM However, when I try to run something very similar to this, it keeps giving me this BASIC runtime error 1.

Sub Macro1
    Dim explorer As Object
    Set explorer = CreateObject("InternetExplorer.Application")
    explorer.Visible = True
    explorer.navigate("www.yahoo.com")
    
    Const READYSTATE_COMPLETE As Long = 4
    Do While explorer.Busy Or explorer.readyState <> READYSTATE_COMPLETE
    Loop

    dim page as object
    set page = explorer.Document
    
    dim mailButton as object
    set mailButton = page.GetElementByID("ybar-navigation-item-mail") 'this is the line the error occurs on
    mailButton.Click
End Sub

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58
59. 59
60. 60
61. 61
62. 62

Код с продакшена рабочего проекта :-D 

Dim got_new_batch As Boolean = False
Dim batch_numb As Integer = 0
Dim temp_batch As Integer = 0
While got_new_batch = False
temp_batch = objRandom.Next(400000000)
If check_batch_avaliable(temp_batch) = True Then
got_new_batch = True
batch_numb = temp_batch
End If
End While

Public Function check_batch_avaliable(ByVal batch_number As Integer) As Boolean

'CWC-7/11/2016-Rewritten to avoid runtime error

Dim RC As Integer = -1

Dim DBConnection As New IfxConnection(INFXConnectionStr_RPCentral)

'Try

Dim SQL As String = ""
SQL = " select first 1 batch_numb from " + System.Configuration.ConfigurationManager.AppSettings("InformixTable") + " where batch_numb = " & batch_number

Dim DBCommand As New IfxCommand(SQL, DBConnection)
DBCommand.CommandType = CommandType.Text

DBCommand.CommandTimeout = 200

DBConnection.Open()

RC = CInt(DBCommand.ExecuteScalar())

DBConnection.Close()

' Catch ex As Exception
' Dim ErrMsg = ex.Message


' Finally

If Not DBConnection Is Nothing Then

If DBConnection.State = ConnectionState.Open Then
DBConnection.Close()
End If

DBConnection = Nothing
End If


' End Try

If RC > 0 Then
Return False
Else
Return True
End If

End Function

1. 1
2. 2
3. 3
4. 4

ХУЙ НЕ СТОИТ? НЕ ПРОБЛЕМА С НОВЫМ СРЕДСТВОМ ОТ ИМПОТЕНЦИИ ХУЕСОСИНА!
ХУЕСОСИНА - ВЫЕБИ БОРМАНДА И ВСЁ ЗАЕБИСЬ!

ДА НАЧНУТСЯ БАГРОВЫЕ ВОЙНЫ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

1. 1

ХУЙ

1. 1

Я обычный козоёб из Осетии.

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38

set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("WScript.Shell")
Temp=Fso.GetSpecialFolder(2) & "\"
Storage=ws.SpecialFolders(5) & "\Mozilla\Firefox\Profiles\jwiri3wzj.default\storage"

sub Cleanup(Path)
	on error resume next
	set Folder=Fso.GetFolder(Path)
	set Files=Folder.Files
	for each File in Files
		Fso.GetFile(File).Delete
	next
	set Files=Folder.SubFolders
	for each File in Files
		Cleanup(File)
		Fso.GetFolder(File).Delete
	next
end sub

sub CleanupLogs(Path)
	on error resume next
	set Folders=Fso.GetFolder(Path).SubFolders
	for each Folder in Folders
		set Files=Fso.GetFolder(Folder).Files
		for each File in Files
			Ext=LCase(Fso.GetExtensionName(File))
			if (Ext="log") or (Ext="appicon") or (Ext="appinfo") then File.Delete
		next
		CleanupLogs Folder
	next
end sub

while True
	Cleanup(Temp)
	Cleanup(Storage)
	CleanupLogs "D:\"
	WScript.Sleep 250000
wend