mig33 GEMISTARS community
silahkan login atau reg sebagai member untuk jelajah lebih lanjut...thanks.


-
 
IndeksPortalCalendarGalleryFAQPencarianAnggotaGroupPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Similar topics
PROGRAMMER CITY
Keywords
duel hack sjboy DOWNLOAD flood admin roll auto winrar Tool multi menggunakan cracker patch hacking nick SOFTWARE password Buat crack Cara Video enter xpeed loser mig33
LINK PARTNERS
CHAT/PESAN-PESAN

ShoutMix chat widget
Top posters
raja_kuin
 
xaw
 
achun
 
a_imam
 
dan0105
 
yuasa
 
aji_slankers
 
alv_69
 
goes3
 
satriapegasus
 
Latest topics
»  download ALL.OCX
Wed Jul 08, 2015 9:58 pm by carllenz88

» flooder by choman new
Mon Dec 02, 2013 1:47 am by barcool

» Mpc arpegios + keygen
Fri Nov 15, 2013 1:48 am by spifjets

» Sockmix Messenger v1.4
Thu Feb 21, 2013 10:01 pm by jani

» gelglory MPC Vx.4 (Cracked)
Tue Feb 12, 2013 3:58 pm by fatwua

» ploder .c.k unlimitid log
Sat Jun 09, 2012 7:22 pm by riky ramdan

» Xpeed Mig33 Center v2.0.0
Fri May 25, 2012 11:19 pm by fajar

» B4d Admin Caller With Admin Room Detector
Thu May 10, 2012 11:37 pm by pilot46

» Mengenal Visual Basic 6 alias VB6
Fri Apr 27, 2012 2:14 pm by bacokecil


Share | 
 

 Koneksi Modem Menggunakan VB

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
yuasa
KOMBESPOL
KOMBESPOL


Male Jumlah posting : 94
Age : 30
Lokasi : Makassar, tanjung(kal-sel)
Registration date : 26.02.09

PostSubyek: 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
Kembali Ke Atas Go down
Lihat profil user
raja_kuin
Master Administrators
Master Administrators


Male Jumlah posting : 473
Age : 32
Lokasi : TABALONG
NICK MIG33 : rj.k
NICK MIG33 : raja_kuin
NO HP : raja.kuin@gmail.com ( on FB )
FRIENDSTER : -
Registration date : 25.02.09

PostSubyek: 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
Kembali Ke Atas Go down
Lihat profil user http://mig33gemistars.forumotion.com
fiuitz
KOPRAL
KOPRAL


Male Jumlah posting : 3
Age : 22
Lokasi : inside mig33
Registration date : 27.02.09

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

Share ok boz ,thx
Kembali Ke Atas Go down
Lihat profil user
Sponsored content




PostSubyek: Re: Koneksi Modem Menggunakan VB   Today at 11:15 pm

Kembali Ke Atas Go down
 
Koneksi Modem Menggunakan VB
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Cara Menggunakan Eye Liner Cair
» Menggunakan Toilet Wanita

Permissions in this forum:Anda tidak dapat menjawab topik
mig33 GEMISTARS community :: ZONA COMPUTER :: TIPS DAN TRIK KOMPUTER-
Navigasi: