可以不显示InternetDial出错时的对话框？

killu 2010-10-03 05:17:42

我的一台无人值守的POS机要实现自动拨号上网，采用api的InternetDial（INTERNET_AUTO_DIAL_UNATTENDED...）在拨号成功时可以不显示拨号界面，但出错时，总是弹出windows的拨号错误，有没有办法禁止这个模态对话框？

...全文

121 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

killu 2010-10-10

打赏
举报

回复

没办法，分给你了

killu 2010-10-04

打赏
举报

回复

没人知道？还是没办法哦

将Chrome与ntouch for Mac连接允许ntouch用户通过点击Chrome浏览器中显示的互联网页面上列出的电话号码来拨打可视电话。支持语言:English (United States)

delphi 调用windows拔号WinInet---InternetDial拔号

易语言ADSL重拨源码,ADSL重拨,InternetGetCookie,InternetSetCookie,InternetDial

易语言ADSL过滤IP源码,ADSL过滤IP,取外网IP地址,InternetGetCookie,InternetSetCookie,InternetDial

VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command2 Caption = "Command2" Height = 375 Left = 1080 TabIndex = 1 Top = 1560 Width = 2055 End Begin VB.CommandButton Command1 Caption = "Command1" Height = 375 Left = 1200 TabIndex = 0 Top = 240 Width = 1935 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Const INTERNET_DIALSTATE_DISCONNECTED = 1 Const INTERNET_AUTODIAL_FORCE_ONLINE = 1 Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2 Const INTERNET_DIAL_UNATTENDED = &H8000 Dim iHandle As Long Private Declare Function InternetDial Lib "wininet.dll" ( _ ByVal hwndParent As Long, _ ByVal lpszConnectoid As String, _ ByVal dwFlags As Long, _ lpdwConnection As Long, _ ByVal dwReserved As Long) As Long '参数dwConnection指定拨号连接句柄 Private Declare Function InternetHangUp Lib "wininet.dll" _ (ByVal dwConnection As Long, _ ByVal dwReserved As Long) As Long Private Declare Function InternetAutodial Lib "wininet.dll" _ (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Private Declare Function InternetAutodialHangup Lib "wininet.dll" _ (ByVal dwReserved As Long) As Long '初始化 Private Sub Form_Load() Command1.Caption = "拨号" Command2.Caption = "断开" End Sub '连接 Private Sub Command1_Click() '建立名称为163的连接，连接成功后连接句柄保存在iHandel中 InternetDial Me.hWnd, "163", INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0 End Sub '断开 Private Sub Command2_Click() If iHandle <> 0 Then InternetHangUp iHandle, 0 iHandle = 0 End If End Sub

110,538

社区成员

642,577

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

让您成为最强悍的C#开发者

试试用AI创作助手写篇文章吧

+ 用AI写文章