- Katılım
- 11 Mar 2010
- Konular
- 194
- Mesajlar
- 2,000
- Reaksiyon Skoru
- 175
- Altın Konu
- 0
- TM Yaşı
- 16 Yıl 3 Ay 6 Gün
- Başarım Puanı
- 132
- MmoLira
- 0
- DevLira
- 0
ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!
Port Açmak İçin
Reset Atmak İçin
Kod:
Private Sub Command1_Click() ' Port açmak için
MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End SubReset Atmak İçin
Kod:
Private Sub Command2_Click() ' Reset atmak için
Dim x, s As String
s = "AT&f$SB1200$mb1200&c4&d2s7=7&w0x4" '& vbCr & vbLf
MSComm1.Output = s & vbCrLf
Debug.Print x
Dim REC As String
REC = WaitForString(MSComm1, vbCrLf & "OK" & vbCrLf, 14)
Debug.Print REC
Debug.Print x
End Sub
Kod:
Private Sub Command3_Click() '
Dim x As String
Dim Rcv As String
Dim stime As Date
MSComm1.Output = "ATDT188x0" & vbCrLf ' & vbLf
Rcv = Rcv & MSComm1.Input
stime = Now
Do
Rcv = Rcv & MSComm1.Input
Debug.Print Rcv
Loop While (1)
Debug.Print Rcv
End Sub