ต่อไป »

[yainalove2015]

Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
While Not BackgroundWorker1.CancellationPending
If GetColor.GETCOLOR(1071, 361) = "0x2E3B4D" Then ''เช็คค่าสี
Dim i As Integer = 0
For i = 1 To (TextBox1.Text)
'เลข1-36
Dim al As String, a1 As String, a2 As String, a3 As String, a4 As String, a5 As String, a6 As String, a7 As String, a8 As String, a9 As String, a10 As String, a11 As String, a12 As String, a13 As String, a14 As String, a15 As String, a16 As String, a17 As String, a18 As String, a19 As String, a20 As String, a21 As String, a22 As String, a23 As String, a24 As String, a25 As String, a26 As String, a27 As String, a28 As String, a29 As String, a30 As String, a31 As String, a32 As String, a33 As String, a34 As String, a35 As String, a36 As String, a37 As String
Dim rand As New Random
Dim num1 As Integer
num1 = rand.Next(0, 36)
MsgBox(num1)
a1 = a1
a2 = a2
a3 = a3
a4 = a4
a5 = a5
a6 = a6
a7 = a7
a8 = a8
a9 = a9
a10 = a10
a11 = a11
a12 = a12
a13 = a13
a14 = a14
a15 = a15
a16 = a16
a17 = a17
a18 = a18
a19 = a19
a20 = a20
a21 = a21
a22 = a22
a23 = a23
a24 = a24
a25 = a25
a26 = a26
a27 = a27
a28 = a28
a29 = a29
a30 = a30
a31 = a31
a32 = a32
a33 = a33
a34 = a34
a35 = a35
a36 = a36
If num1 = 1 Then
a1 = (AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 206, 472)) '1
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 2 Then
a2 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 216, 420) '2
AutoIt.AutoItX.Sleep(200)
End If

If num1 = 3 Then
a3 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 222, 370) '3
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 4 Then
a4 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 276, 471) '4
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 5 Then
a5 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 281, 419) '5
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 6 Then
a6 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 286, 370) '6
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 7 Then
a7 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 342, 471) '7
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 8 Then
a8 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 347, 419) '8
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 9 Then
a9 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 348, 371) '9
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 10 Then
a10 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 407, 471) '10
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 11 Then
a11 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 409, 419) '11
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 12 Then
a12 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 413, 371) '12
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 13 Then
a13 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 477, 468) '13
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 14 Then
a14 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 472, 419) '14
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 15 Then
a15 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 478, 371) '15
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 16 Then
a16 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 540, 470) '16
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 17 Then
a17 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 541, 420) '17
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 18 Then
a18 = (AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 540, 370)) '18
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 19 Then
a19 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 609, 471) '19
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 20 Then
a20 = (AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 606, 422)) '20
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 21 Then
a21 = (AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 605, 369)) '21
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 22 Then
a22 = (AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 677, 470)) '22
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 23 Then
a23 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 671, 420) '23
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 24 Then
a24 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 669, 369) '24
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 25 Then
a25 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 739, 470) '25
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 26 Then
a26 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 737, 422) '26
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 27 Then
a27 = (AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 733, 370)) '27
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 28 Then
a28 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 808, 472) '28
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 29 Then
a29 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 802, 419) '29
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 30 Then
a30 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 795, 369) '30
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 31 Then
a31 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 878, 471) '31
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 32 Then
a32 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 865, 420) '32
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 33 Then
a33 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 860, 369) '33
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 34 Then
a34 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 940, 474) '34
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 35 Then
a35 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 932, 420) '35
AutoIt.AutoItX.Sleep(200)
End If
If num1 = 36 Then
a36 = AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 922, 371) '36
AutoIt.AutoItX.Sleep(200)
End If
Next
Exit While 'ออกจากloop
End If
End While
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
BackgroundWorker1.RunWorkerAsync()
Button1.Enabled = False
Button2.Enabled = True
Catch ex As Exception
MsgBox("โปรแกรมยังไม่พร้อมพร้อมหยุด กรุณารอแล้วหยุดอีกรอบ")
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AutoIt.AutoItX.ControlClick("GameName", "", "", "left", 1, 266, 292) 'join ห้อง
AutoIt.AutoItX.Sleep(200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
BackgroundWorker1.CancelAsync()
Button1.Enabled = True
Button2.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim colortest As String = GetColor.GETCOLOR(1071, 361)
MsgBox(colortest)
End Sub
End Class

[gungsakab]

ลองดูครับ

โค๊ด:

Public Module Module1
	Public Sub Main()
		Dim min As Integer = 1
		Dim max As Integer = 99999999
		Dim random As New Random(System.DateTime.Now.Millisecond)

        If min > max Then
            Dim t As Integer = min
            min = max
            max = t
        End If
		Console.WriteLine(random.Next(min, max))
	End Sub
End Module