Visual Basic Oto Mesaj / YARDIM /

J

JackJones34

Katılımcı Üye
15 Nis 2013
914
0
İstanbul
Arkadaşlar Çok Araştırdım FAkat Birde Burdan Yardım Almayı Dusundum
Yapmak Istedıgım Program Şöyle ;

Program 3 Sanıyede Bir
/room 1
/room 2
/room 3
/room 4
/room 5
...
yazıcak

örneğin "deneme" kelimesini 3 sanıyede bir yazdırabılıyorum çunku devamlı deneme deneme deneme yazıyo fakat farklı kelımeleri yapamıyorum acıl lazım yardımcı olursanız cok sevınırım
 
Son düzenleme:
Tarihe göre sırala Oylara göre sırala
J

JackJones34

Katılımcı Üye
15 Nis 2013
914
0
İstanbul
ya Çok kapsamlı birşey değil
SendKeys Text1.Text kodu ile yapıyorum timer invertalini 2000 yapıyorum daha sonra textbox ın ıcıne istediğimi yazıorm otomatık 2 sanıyede bır yazıyo program onu fakat o aynı cumleler yada kelımelerde geçerli oluyo benım ıstedıgım
program devamlı room room room yazmıcak room 1 room 2 room 3 diye gidicek onu yapamıyorum
 
Oyla 0 Downvote
N

nestea

Katılımcı Üye
30 Haz 2009
432
0
Trabzon
dim i as integer
diye bir değişken tanımla
Sonra timer içerisine gel. timer kod blogunun en başına
i=i+1 'yaz
daha sonra
room yazdırdığın şey textbox1.text ' ten mi çekiyorsun artık nerden ise. yanına şunu ekle Tüm kodları tekrardan yazıyorum

dim i as integer
i=i+1
textbox1.text & " " & i

??
 
Oyla 0 Downvote
J

JackJones34

Katılımcı Üye
15 Nis 2013
914
0
İstanbul
Programı Bitirdim Yardımcı Olan Herkeze Çok Teşekkür Ederim.

Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Timer3.Enabled = True
Else
Timer3.Enabled = False
Text3.Text = 0
End If
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
SendKeys ("{enter}")
SendKeys Text1.Text
SendKeys ("{enter}")
End Sub

Private Sub Timer2_Timer()
SendKeys ("{enter}")
SendKeys Text2.Text
SendKeys ("{enter}")
End Sub

Private Sub Timer3_Timer()
Text3.Text = Val(Text3.Text) + 1
SendKeys ("{enter}")
SendKeys ("/room ")
SendKeys Text3.Text
SendKeys ("{enter}")
End Sub
Genişletmek için tıkla ...
 
Oyla 0 Downvote
T

TheMonsTeR Cod

Yeni üye
20 Nis 2013
3
0
2 buton 1 timer koy sonra buton 1 başlat olsun koduna timer1.start() 2. buton durdur olsun kodu timer1.stop()

timer içine ise
Dim i As Integer
While i <= 100
SendKeys.Send(TextBox1.Text & " " & i)
SendKeys.Send("{ENTER}")
i = i + 1
End While
Genişletmek için tıkla ...
While i <= 100

burdaki 100 sayısı deneme 100 e kadar yazar ordan ayarlayailirsin
 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.