Dial To

 

M i chi ti t liên h :

LA VU HOANG HAI

Kaspersky - Bkav - Avira - Microsoft 
System Administrator

Nickname: hoanghaico

Skype: hoanghaico

Email: hoanghaico@gmail.com
Phone: 0982 769 051 - 0932 680 505

----- Thư đã chuyển tiếp ----
Từ: TRUNG TAM KY THUAT MAY TINH <star_pc2010@yahoo.com.au>
Tới: hai_itvn@yahoo.com.vn
Đã gửi 19:23 Thứ Ba, 11 tháng 9 2012
Chủ đề: Dial To

khai bao ham DialUpTo de su dung  Private Declare Function DialUpTo Lip "C:\samples\MFC\Dialupto.dll" (ByVal lpText As String) As Long  'Ham demo viec dialup tu dong  Private Sub Command1_Click()  Dim s As String    Dim Username As String  Dim Password As String  TelNum As String  Dim ret As Long  Username="vnn1269"  Password="vnn1269"  Telnum=1269 'xay dung chuoi tham so gom u,p va sdt cua server  s=Username "&","& Password & ","& TelNum 'goi ham DialUpTo de dial tu dong den server  ret=DialUpTo(s) End Sub