thaicosmic.com

หนัง

วันเสาร์ที่ 29 สิงหาคม พ.ศ. 2552

start New connection

RunDLL32.EXE netshell.dll,StartNCW

สร้าง Dialup connection

(Combo2.Text is the Dial Up Phone Number.)

UserName = Text1.Text
Password = Text2.Text

RetVal = Shell("c:\program files\internet explorer\connection wizard\inetwiz.exe", vbNormalFocus)

While ICW = 0
ICW = FindWindow(vbNullString, "Internet Connection Wizard")
Wend

ICW = FindWindow(vbNullString, "Internet Connection Wizard")

SendKeys ("{TAB}{ENTER}{TAB 2}{ENTER}")
SendKeys ("+{TAB}{DEL}" + Left$(Form1.Combo2.Text, 3) + "{TAB}" + Right$(Form1.Combo2.Text, 8) + "{TAB 5}{ENTER}")
SendKeys (UserName + "{TAB}" + Password + "{TAB 2}{ENTER}")
SendKeys ("ISP NAME {TAB 2}{ENTER}")
SendKeys ("{DOWN}{TAB 2}{ENTER}")
SendKeys ("{ENTER}")