(Help) Kode ComboBox For Karakter in v.b

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Süper Üye
Katılım
12 May 2018
Mesajlar
834
Tepki puanı
167
Ödüller
6
8 HİZMET YILI
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Pointer-----------------------------
End If
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Pointer-----------------------------
End If
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Pointer-----------------------------
End If
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Pointer-----------------------------
End If
 
Üye
Katılım
25 Haz 2016
Mesajlar
41
Tepki puanı
1
9 HİZMET YILI
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Pointer-----------------------------
End If
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Pointer-----------------------------
End If
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Pointer-----------------------------
End If
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Pointer-----------------------------
End If


ok but karakter pointer is lot of adress.....
Example
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Dim text As String = Me.FlameTextBox1.Text

WritePointerInteger("wolftü.bin", Label1.Text + &H7000E8, "30243", &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H701090, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H70132C, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H700DF4, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H7008BC, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H700620, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H70280C, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H702570, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H7022D4, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H702038, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H700B58, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H700384, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H7015C8, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H701D9C, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H7022D4, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H701B00, '30243', &H14)


That's true??
 
Onaylı Üye
Katılım
26 Ocak 2016
Mesajlar
57
Tepki puanı
7
Yaş
34
Sosyal
10 HİZMET YILI
ok but karakter pointer is lot of adress.....
Example
If ComboBox1.Text = "ComboBox"Taki Yazı" = True Then
Dim text As String = Me.FlameTextBox1.Text

WritePointerInteger("wolftü.bin", Label1.Text + &H7000E8, "30243", &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H701090, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H70132C, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H700DF4, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H7008BC, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H700620, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H70280C, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H702570, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H7022D4, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H702038, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H700B58, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H700384, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H7015C8, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H701D9C, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H7022D4, '30243', &H14)
WritePointerInteger("wolftü.bin", Label1.Text + &H701B00, '30243', &H14)


That's true??


these pointer addresses may be old.
 
Onaylı Üye
Katılım
26 Ocak 2016
Mesajlar
57
Tepki puanı
7
Yaş
34
Sosyal
10 HİZMET YILI
materials :
1 unit timer

Timer properties :
Enabled = True

Timer code :
On Error Resume Next
If ComboBox1.Text = ("elwerici") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Elwerici
End If

If ComboBox1.Text = ("ETSR") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") ETSR
End İf

If ComboBox1.Text = ("Legend") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Legend
End İf
If ComboBox1.Text = ("UZAS") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Uzas

End İf
 
Son düzenleme:
Onaylı Üye
Katılım
26 Ocak 2016
Mesajlar
57
Tepki puanı
7
Yaş
34
Sosyal
10 HİZMET YILI
materials :
1 unit timer

Timer properties :
Enabled = True

Timer code :
On Error Resume Next
If ComboBox1.Text = ("elwerici") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Elwerici
End If

If ComboBox1.Text = ("ETSR") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") ETSR
End İf

If ComboBox1.Text = ("Legend") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Legend
End İf
If ComboBox1.Text = ("UZAS") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Uzas

End İf
 
Üye
Katılım
25 Haz 2016
Mesajlar
41
Tepki puanı
1
9 HİZMET YILI
materials :
1 unit timer

Timer properties :
Enabled = True

Timer code :
On Error Resume Next
If ComboBox1.Text = ("elwerici") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Elwerici
End If

If ComboBox1.Text = ("ETSR") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") ETSR
End İf

If ComboBox1.Text = ("Legend") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Legend
End İf
If ComboBox1.Text = ("UZAS") Then
WriteLong("wolftü.bin", label1.Text + &H35AB80, "2251829620") Uzas

End İf

but need karakter
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst