Koneksi Modem Menggunakan VB

Subyek: Koneksi Modem Menggunakan VB Mon Mar 02, 2009 7:02 am

Hasil jalan2 :wakaka
Source ini saya posting untuk menambah wawasan para programmer. Program
ini digunakan untuk dial modem kemudian dalam beberapa detik koneksi
modem diputus.

Program ini dapat dimodifikasi sesuai dengan selera yang akan menggunakan.

Quote:

Dim a, b, c, d, e, f, g, h, i, j, k
Dim DialString$, FromModem$, dialing, flname

Private Sub Label1_Click()
notelp = "XXXXXXXXX"
Text1.Text = flname
' connect to modem and dial phone number
MSComm1.CommPort = 2
MSComm1.Settings = "115200,N,8,1"
On Error Resume Next
MSComm1.PortOpen = True
MSComm1.InBufferCount = 0
MSComm1.Output = "ATDT" + notelp + ";" + vbCr
Label3.Caption = "MODEM CONNECT"
Timer2.Enabled = True
End Sub

Private Sub Label2_Click()
' Disconnect the modem.
MSComm1.Output = "ATH" + vbCr
' Close the port.
MSComm1.PortOpen = False
If flname <> "" Then
Kill "d:\\YYYYYYYY\\" + flname
End If
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Timer2.Enabled = False
flname = Dir("d:\\YYYYYYYYY\\newfilecomming.txt")
If flname <> "" Then
Label1_Click
End If
End Sub

Private Sub Timer2_Timer()
Label3.Caption = "MODEM DISCONNECT"
Label2_Click
Timer1.Enabled = True
End Sub

Subyek: Re: Koneksi Modem Menggunakan VB Wed Mar 04, 2009 12:45 pm

Goodnice share bro ,sering2 aja jalan2 share trus kalo dpt share aj d sini .wkakakakaka

Subyek: Re: Koneksi Modem Menggunakan VB Sun Mar 08, 2009 4:24 pm

Share ok boz ,thx

» SETTING MODEM INTERNET CDMA
» mempercepat koneksi internet 3G / 3,5G dari ponsel
» Cara Hack Password Facebook menggunakan Phishing