Home › C_Volume2 › Running Dialup Internet Connections Using the IE Connection Dialog
Advertisement
C_Volume2 Internet/ HTML #76554

Running Dialup Internet Connections Using the IE Connection Dialog

Carroll Dearstone
★★★★★
4.8 · Downloads: 2,341

This allows you to be able to setup programs that can connect to the net using the IE connection dialog box. If the 'Never Dial a Connection' option is selected, this code will not be able to connect. It is pretty straight forward to me, but if you need help just email me!

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source 
<font face="Tahoma, Verdana, Arial, sans-serif" size="2"> <font color="#006600">'-------------------<br>
'Start Examples of Form Code <br>
'-------------------<br>
</font> <font color="#000066">Private Sub cmdConnectPopUp_Click</font>()<br>
PopUpConnectDialog<br>
<font color="#000066">End Sub </font></font> 
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Private 
 Sub cmdConnectAndDial_Click</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2">()<br>
 PopUpThenDialConnectDialog<br>
 <font color="#000066">End Sub</font></font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Private 
 Sub cmdDisconnect_Click</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2">()<br>
 HangUpConnection<br>
 End Sub</font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Private 
 Sub Form_Load()</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2"><br>
 PopUpThenDialConnectDialog<br>
 <font color="#000066">End Sub</font></font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#006600">'-------------------<br>
 'End Examples of Form Code <br>
 '-------------------<br>
 <br>
 </font><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#006600">'-------------------<br>
 'Start Module Code<br>
 '-------------------<br>
 </font><font face="Tahoma, Verdana, Arial, sans-serif" size="2"> </font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Public 
 Declare Function</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2"> 
 InternetAutodial <font color="#000066">Lib</font> "wininet.dll" _<br>
 (<font color="#000066">ByVal </font>dwFlags<font color="#000066"> As Long</font>, 
 ByVal dwReserved As Long) <font color="#000066">As Long</font></font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Public 
 Declare Function</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2"> 
 InternetAutodialHangup <font color="#000066">Lib</font> "wininet.dll" _<br>
 (<font color="#000066">ByVal</font> dwReserved <font color="#000066">As Long</font>) 
 <font color="#000066">As Long</font></font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Public 
 Const</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2"> INTERNET_AUTODIAL_FORCE_ONLINE 
 = 1<br>
 <font color="#000066">Public Const</font> INTERNET_AUTODIAL_FORCE_UNATTENDED 
 = 2</font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Function 
 PopUpConnectDialog</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2">()<br>
 <font color="#000066">On Error Resume Next<br>
 </font> <font color="#000066">If</font> InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 
 0) <font color="#000066">Then</font><br>
 MsgBox "You're Connected!", vbOKOnly, "Your App Name"<br>
 <font color="#000066">End </font><font face="Tahoma, Verdana, Arial, sans-serif" size="2"><font color="#000066">If</font></font><br>
 <font color="#000066">End Function</font></font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Function 
 PopUpThenDialConnectDialog</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2">()<br>
 <font color="#000066">On Error Resume Next</font><br>
 If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) <font color="#000066">Then</font><br>
 MsgBox "You're Connected!", vbOKOnly, "Your App Name"<br>
 <font color="#000066">End </font><font face="Tahoma, Verdana, Arial, sans-serif" size="2"><font color="#000066">If</font></font><font color="#000066"><br>
 End Function</font></font></p>
<p><font face="Tahoma, Verdana, Arial, sans-serif" size="2" color="#000066">Function 
 HangUpConnectio</font><font face="Tahoma, Verdana, Arial, sans-serif" size="2">n()<br>
 <font color="#000066">On Error Resume Next</font><br>
 <font color="#000066">If</font> InternetAutodialHangup(0) <font color="#000066">Then<br>
 </font> MsgBox "You're Disconnected!", vbOKOnly, "Your App Name"<br>
 <font color="#000066">End If<br>
 End Function<br>
 </font> <font color="#006600">'-------------------<br>
 'End Module Code<br>
 '-------------------</font><br>
 </font><font face="Tahoma, Verdana, Arial, sans-serif" size="2">Thanks,<br>
 Carroll Dearstone<font color="#006600"><br>
 </font></font></p>
Original Comments (3)
Recovered from Wayback Machine