AM电脑吧 - Win10精简版系统_Win11精简版_Win7旗舰版

Yes
查看: 8230|回复: 14
收起左侧

[其它] 请问阿木老师这个对话框如何去掉

[复制链接]
ampc8439

签到天数: 189 天

[LV.7]七个CPU

id dnvplj 发表于 2014-05-28 13:24:25
请问阿木老师:下面的这个对话框如何去掉
360截图20140528123226140.jpg

  1. #Region
  2. #PRE_icon=..\..\..\windows\system32\SHELL32.dll|-165
  3. #PRE_UseX64=n
  4. #PRE_Res_requestedExecutionLevel=None
  5. #EndRegion
  6. Opt("MustDeclareVars", 0x00000001)
  7. _MAIN()
  8. Exit
  9. Func _MAIN()
  10.         Local $I = MsgBox(0x00000004 + 0x00000020, "提示:", "是否创建宽带连接?")
  11.         Local $RASPHONE = ""
  12.         Switch @OSVersion
  13.                 Case "WIN_XP"
  14.                         $RASPHONE = @AppDataCommonDir & "\Microsoft\Network\Connections\Pbk\rasphone.pbk"
  15.                 Case "WIN_7"
  16.                         $RASPHONE = @AppDataDir & "\Microsoft\Network\Connections\Pbk\rasphone.pbk"
  17.                 Case Else
  18.                         MsgBox(0x00000000 + 0x00000040, "提示:", "本工具不适用于本系统", 0x00000003)
  19.                         Exit
  20.         EndSwitch
  21.         Switch $I
  22.                 Case 0x00000006
  23.                         FileOpen($RASPHONE, 0x0000000A)
  24.                         FileWrite($RASPHONE, RASPHONE_PBK())
  25.                         FileWrite(@DesktopCommonDir & "\宽带连接.lnk", PPPOE())
  26.                 Case Else
  27.                         Exit
  28.         EndSwitch
  29. EndFunc   ;==>_MAIN
  30. Func PPPOE()
  31.         If @OSVersion = "WIN_7" Then
  32.                 Local $FILEBIN = ""
  33.                 $FILEBIN &= "4C0000000114020000000000C0000000000000468100080000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000940114001F802020EC21EA3A6910A2DD08002B30309D1E00"
  34.                 $FILEBIN &= "718000000000000000000000C7AC07700232D111AAD200805FC1270E6001FF4E03000000FF5E0000D76A12BA6621D111B1D000805FC1270E254CF93345660941A9ED39AA79D671FE4E000000060000000000000034000000B4000000000000000A000000"
  35.                 $FILEBIN &= "0A0000002A00000000000000E800000002000000000000000000000000000000EA00000002000000BD5B265EDE8FA5630000570041004E0020004D0069006E00690070006F0072007400200028005000500050004F00450029000000140043003A005C00"
  36.                 $FILEBIN &= "550073006500720073005C007A00680061006E0067005C0041007000700044006100740061005C0052006F0061006D0069006E0067005C004D006900630072006F0073006F00660074005C004E006500740077006F0072006B005C0043006F006E006E00"
  37.                 $FILEBIN &= "65006300740069006F006E0073005C00500062006B005C00720061007300700068006F006E0065002E00700062006B000000254CF93345660941A9ED39AA79D671FE0000000005000000000000000000000000000000"
  38.         Else
  39.                 Local $FILEBIN = ""
  40.                 $FILEBIN &= "4C0000000114020000000000C0000000000000468100000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000B00114001F50E04FD020EA3A6910A2D808002B30309D1400"
  41.                 $FILEBIN &= "2E002020EC21EA3A6910A2DD08002B30309D14007000C7AC07700232D111AAD200805FC1270E7201FF4E02000000FF5E0F3800000000D76A12BA6621D111B1D000805FC1270E254CF93345660941A9ED39AA79D671FE5F04000006000000000000002C00"
  42.                 $FILEBIN &= "0000E0000000000000000A0000000A00000022000000000000000C01000002000000BD5B265EDE8FA5630000570041004E002000AE5F8B57EF7AE353200028005000500050004F00450029000000140043003A005C0044006F00630075006D0065006E00"
  43.                 $FILEBIN &= "74007300200061006E0064002000530065007400740069006E00670073005C0041006C006C002000550073006500720073005C004100700070006C00690063006100740069006F006E00200044006100740061005C004D006900630072006F0073006F00"
  44.                 $FILEBIN &= "660074005C004E006500740077006F0072006B005C0043006F006E006E0065006300740069006F006E0073005C00500062006B005C00720061007300700068006F006E0065002E00700062006B000000254CF93345660941A9ED39AA79D671FE01000000"
  45.                 $FILEBIN &= "050000000000180F000000000000"
  46.         EndIf
  47.         Return Binary("0x" & $FILEBIN)
  48. EndFunc   ;==>PPPOE
  49. Func RASPHONE_PBK()
  50.         Local $FILEBIN = ""
  51.         $FILEBIN &= "5BE5AEBDE5B8A6E8BF9EE68EA55D0D0A456E636F64696E673D310D0A547970653D350D0A4175746F4C6F676F6E3D300D0A55736552617343726564656E7469616C733D310D0A4469616C506172616D735549443D393532323635360D0A477569643D3235"
  52.         $FILEBIN &= "3443463933333435363630393431413945443339414137394436373146450D0A4261736550726F746F636F6C3D310D0A56706E53747261746567793D300D0A4578636C7564656450726F746F636F6C733D300D0A4C6370457874656E73696F6E733D310D"
  53.         $FILEBIN &= "0A44617461456E6372797074696F6E3D380D0A5377436F6D7072657373696F6E3D310D0A4E65676F74696174654D756C74696C696E6B416C776179733D300D0A536B69704E77635761726E696E673D300D0A536B6970446F776E4C6576656C4469616C6F"
  54.         $FILEBIN &= "673D300D0A536B6970446F75626C654469616C4469616C6F673D300D0A4469616C4D6F64653D310D0A4469616C50657263656E743D37350D0A4469616C5365636F6E64733D3132300D0A48616E67557050657263656E743D31300D0A48616E6755705365"
  55.         $FILEBIN &= "636F6E64733D3132300D0A4F76657272696465507265663D31350D0A52656469616C417474656D7074733D330D0A52656469616C5365636F6E64733D36300D0A49646C65446973636F6E6E6563745365636F6E64733D300D0A52656469616C4F6E4C696E"
  56.         $FILEBIN &= "6B4661696C7572653D300D0A43616C6C6261636B4D6F64653D300D0A437573746F6D4469616C446C6C3D0D0A437573746F6D4469616C46756E633D0D0A437573746F6D5261734469616C446C6C3D0D0A41757468656E7469636174655365727665723D30"
  57.         $FILEBIN &= "0D0A53686172654D7346696C655072696E743D300D0A42696E644D734E6574436C69656E743D300D0A53686172656450686F6E654E756D626572733D310D0A476C6F62616C44657669636553657474696E67733D300D0A50726572657175697369746545"
  58.         $FILEBIN &= "6E7472793D0D0A50726572657175697369746550626B3D0D0A507265666572726564506F72743D5050506F45342D300D0A5072656665727265644465766963653D57414E20E5BEAEE59E8BE7ABAFE58FA320285050504F45290D0A507265666572726564"
  59.         $FILEBIN &= "4270733D300D0A5072656665727265644877466C6F773D300D0A50726566657272656450726F746F636F6C3D300D0A507265666572726564436F6D7072657373696F6E3D300D0A507265666572726564537065616B65723D310D0A507265666572726564"
  60.         $FILEBIN &= "4D646D50726F746F636F6C3D300D0A507265766965775573657250773D310D0A50726576696577446F6D61696E3D300D0A5072657669657750686F6E654E756D6265723D300D0A53686F774469616C696E6750726F67726573733D310D0A53686F774D6F"
  61.         $FILEBIN &= "6E69746F7249636F6E496E5461736B4261723D310D0A437573746F6D417574684B65793D2D310D0A417574685265737472696374696F6E733D3633320D0A5479706963616C417574683D310D0A49705072696F726974697A6552656D6F74653D310D0A49"
  62.         $FILEBIN &= "70486561646572436F6D7072657373696F6E3D310D0A4970416464726573733D302E302E302E300D0A4970446E73416464726573733D302E302E302E300D0A4970446E7332416464726573733D302E302E302E300D0A497057696E73416464726573733D"
  63.         $FILEBIN &= "302E302E302E300D0A497057696E7332416464726573733D302E302E302E300D0A497041737369676E3D310D0A49704E616D6541737369676E3D310D0A49704672616D6553697A653D313030360D0A4970446E73466C6167733D300D0A49704E4254466C"
  64.         $FILEBIN &= "6167733D310D0A54637057696E646F7753697A653D300D0A557365466C6167733D300D0A4970536563466C6167733D300D0A4970446E735375666669783D0D0A0D0A4E4554434F4D504F4E454E54533D0D0A6D735F7365727665723D300D0A6D735F6D73"
  65.         $FILEBIN &= "636C69656E743D300D0A0D0A4D454449413D726173746170690D0A506F72743D5050506F45342D300D0A4465766963653D57414E20E5BEAEE59E8BE7ABAFE58FA320285050504F45290D0A0D0A4445564943453D5050506F450D0A4C61737453656C6563"
  66.         $FILEBIN &= "74656450686F6E653D300D0A50726F6D6F7465416C7465726E617465733D300D0A5472794E657874416C7465726E6174654F6E4661696C3D310D0A0D0A"
  67.         Return Binary("0x" & $FILEBIN)
  68. EndFunc   ;==>RASPHONE_PBK
复制代码





本文地址: https://www.ampc8.com/thread-16299-1-1.html
上一篇:win8.1
下一篇:[2014.05.29 更新】windows8_Office 2013 直接联网JiHuo密钥
回复

举报

ampc8439

签到天数: 189 天

[LV.7]七个CPU

lz  楼主| dnvplj 发表于 2014-05-28 16:49:09
我的系统是:win7x64系统
回复

举报

ampc8110

签到天数: 3 天

[LV.2]二兆带宽

id fuldho 发表于 2014-05-28 16:42:07
dnvplj 发表于 2014/5/28 15:45
加了“#RequireAdmin”也不行。

这个跟创建宽带连接无任何关系,与你系统设置有关,不同的系统环境创建也不一样,你可以在其他电脑试试就知道了。
回复

举报

ampc8439

签到天数: 189 天

[LV.7]七个CPU

lz  楼主| dnvplj 发表于 2014-05-28 15:45:37
加了“#RequireAdmin”也不行。

点评

这个跟创建宽带连接无任何关系,与你系统设置有关,不同的系统环境创建也不一样,你可以在其他电脑试试就知道了。  详情 回复 发表于 2014/5/28 16:42
回复

举报

ampc81

签到天数: 644 天

[LV.9]九级电脑高手

id 发表于 2014-05-28 15:30:47
Administrator账户才可以选的吧
加上#RequireAdmin 试试
再就是运行脚本和编译后运行有区别的
回复

举报

ampc8439

签到天数: 189 天

[LV.7]七个CPU

lz  楼主| dnvplj 发表于 2014-05-28 15:07:27
本帖最后由 dnvplj 于 2014/5/28 15:15 编辑

按4楼的代码,问题解决,在次感谢fuldho板主,但有一个问题,见下图。 001.jpg

回复

举报

ampc8110

签到天数: 3 天

[LV.2]二兆带宽

id fuldho 发表于 2014-05-28 15:03:44
dnvplj 发表于 2014/5/28 15:00
原代码不用“rasphone.pbk文件”,运行1楼的代码就可以。

对不起,大意了,交换一下位置 4楼重新编辑
回复

举报

ampc8439

签到天数: 189 天

[LV.7]七个CPU

lz  楼主| dnvplj 发表于 2014-05-28 15:00:04
阿木 发表于 2014/5/28 14:57
你没有放rasphone.pbk文件吧

原代码不用“rasphone.pbk文件”,运行1楼的代码就可以。

点评

对不起,大意了,交换一下位置 4楼重新编辑  详情 回复 发表于 2014/5/28 15:03
回复

举报

ampc8439

签到天数: 189 天

[LV.7]七个CPU

lz  楼主| dnvplj 发表于 2014-05-28 14:58:33
原代码不用“rasphone.pbk文件”,运行1楼的代码就可以。
回复

举报

ampc81

签到天数: 644 天

[LV.9]九级电脑高手

id 发表于 2014-05-28 14:57:20
dnvplj 发表于 2014/5/28 14:50
fldho板主您好:
感谢你的回复,你给的代码运行后,桌面有快捷方式,但win7里的“网络连接里”没有图标,W ...

你没有放rasphone.pbk文件吧
回复

举报

您需要登录后才可以回帖 登录 | 验证注册

Powered by AMpc8.Com (晋ICP备13003365号ghs 晋公网安备 14090202000112号 |GMT+8, 2024/4/27 21:44 |
快速回复 返回顶部 返回列表