当前位置：首页 -> 技术开发 -> 程序开发 -> 程序中如何启动默认的拨号连接

程序中如何启动默认的拨号连接

时间： 2021-07-31 作者：daque

跟着因特网的迅猛兴盛，此刻编制程序常须要在步调市直接联网来处置少许事变，如在线备案和在线扶助，这就诉求咱们要在步调中创造某些贯穿。很多软硬件在不知用户能否联网的情景下尽管三七二十一就启用欣赏器搜索网址，费了九牛二虎之力只能查出一缺点页来（固然不大概有什么好的截止）。即使咱们在步调编写时能机动确定用户能否仍旧联网，如仍旧联网则翻开联接，如没有则启用默许的拨号贯穿，如许是否让人感触你的软硬件更胜人一处呢？确定能否已联网很多场合都有引见，这边咱们只引见怎样启用默许的拨号贯穿。 ---- 在引见之前让咱们开始看看怎样翻开拨号搜集。因为拨号搜集不是一个可实行文献，以是不许用 “shell 可实行文献”的办法来翻开。要启用拨号搜集，需借助 explorer ，本领如次： shell "explorer ::{20d04fe0-3aea-1069-a2d8-08002b30309d}\" & "::{992cffa0-f557-101a-88ec-00dd010ccc48}", vbnormalfocus---- 但假如要启用拨号搜集中的某一个贯穿，则需借助rundll.exe 及 rnaui.dll来启用，本领如次（假设贯穿称呼为163）： shell "rundll rnaui.dll,rnadial 163", vbnormalfocus---- 证明：在之上报告中，“,rnadial 163”这局部不要插入特殊的空格，巨细写也不要大肆变动。 ---- 上头只是假设了贯穿称呼，但本质编制程序中咱们是不领会其称呼的，怎样博得默许的贯穿称呼并启用它呢？这边咱们可运用备案表来到达手段。完备步调如次： ---- 在窗体上安置一个吩咐按钮（称呼为 cmdcallconnect)，底下为代码部份： option explicit 解释：相关备案的api证明private declare function regopenkeyex lib "advapi32" alias "regopenkeyexa" (byval hkey as long, byval lpsubkey as string, byval uloptions as long, byval samdesired as long, phkresult as long) as longprivate declare function regqueryvalueex lib "advapi32" alias "regqueryvalueexa" (byval hkey as long, byval lpvaluename as string, byval lpreserved as long, byref lptype as long, byval szdata as string, byref lpcbdata as long) as longprivate declare function regclosekey lib "advapi32" (byval hkey as long) as long解释：常数const hkey_current_user = &h80000001const error_success = 0& private sub cmdcallconnect_click()解释：启用默许拨号贯穿shell "rundll rnaui.dll,rnadial " + getconnect, vbnormalfocusend sub public function getconnect() as stringdim hkey as longdim subkey as stringhkey = hkey_current_user 解释：主键subkey = "remoteaccess" 解释：子键解释：博得默许贯穿名getconnect = getregvalue(hkey, subkey, "default")end functionpublic function getregvalue(hkey as long, lpszsubkey as string, szkey as string) as varianton error goto errorroutineerr:dim phkresult as longdim lresult as longdim szbuffer as stringdim lbuffsize as long解释：创造缓冲区szbuffer = space(255)lbuffsize = len(szbuffer)解释：翻开备案键regopenkeyex hkey, lpszsubkey, 0, 1, phkresult解释：查问截止lresult = regqueryvalueex(phkresult,szkey, 0, 0, szbuffer,lbuffsize)解释：封闭备案键regclosekey phkresult解释：归来截止if lresult = error_success thengetregvalue = left(szbuffer, lbuffsize - 1)elsegetregvalue = ""end ifexit functionerrorroutineerr:getregvalue = ""end function之上步调在 win98,vb6.0 下调节和测试经过。

程序中如何启动默认的拨号连接

相关推荐

推荐下载

热门阅览

最新排行