您现在的位置: 天下网吧 >> 网吧软件 >> 网吧常用 >> 软件信息
  • 站内搜索:

干掉PUBWIN2015右下方弹出小窗口的VB源码脚本 - 网吧软件

  • 收录时间:2016-6-4
  • 大小:4 K
  • 软件类别: 国产软件
  • 软件语言:简体中文
  • 软件语言: 简体中文
  • 软件等级: ★★★
  • 授权方式: 免费版
  • 解压密码:www.txwb.com
  • 推荐:网吧专题大全网吧论坛网吧增值联盟发布软件!免费游戏菜单

  • 网吧增值联盟
    本帖最后由 llsr001 于 2016-6-4 03:10 编辑


    ‘新建工程-标准EXE-移除窗口Form1-增加-添加模块-粘贴源码到模块中-生成EXE’
    ‘’不过造成的结果是桌面右下方菜单的和系统的结帐下机操作不生效,需要点击本程序在桌面生成的结帐下机快捷方式。
    Sub Main()
    On Error Resume Next
    Dim Path As String, Exename As String, Exepath As String, DesktopPath As String, Str As String, SQL As String
    DesktopPath = CreateObject("WSCript.Shell").SpecialFolders.Item("desktop") & ("\")
    Exename = "WXCltAidEx.exe"
    Set b = GetObject("winmgmts:\\")
    SQL = "select * from win32_process where name =""" + Exename + """"
    Set c = b.execquery(SQL) 
    For Each k In c
    Debug.Print k.Caption, k.Exename
    If k.Caption = Exename Then
    Path = k.executablepath
    Exit For
    End If
    Next
    Debug.Print Path
    i = InStr(Path, "A")
    If i <= 0 Then Exit Sub
    Str = Replace(Path, ".", "a.")
    Shell "taskkill /f /im " + Exename
    Name Path As Str
    Debug.Print Exepath, Path, DesktopPath
    Dim objshell
    Set objshell = CreateObject("WSCript.Shell")
    Set objShellLink = objshell.CreateShortcut(DesktopPath + "结帐下机.lnk")
    '要存放的位置
    objShellLink.TargetPath = Str
    objShellLink.Save
    End Sub


    软件不会用?点击链接搜索软件使用教程吧: http://bbs.txwb.com
    天下网吧说明: 本软件网络坛友收集提供,软件使用中带来的任何问题与天下网吧无盘(包括如果软件有带广告,软件会到期等问题) 如果你想了解更多关于软件使用的教程,欢迎你访问专业的网吧技术,无盘论坛http://bbs.txwb.com
    相关软件
    推荐专题 ┊ 更多专题..
    下载说明

    * 本站所有软件按“原样”提供,不修改不加装插件。

    * 本站不提供任何有版权的软件下载。更不提供任何违反版权法相关(如破解版)软件下载
    * 如果不小心收集了的软件,侵犯你的版权利益敬请来信告知我们马上去掉
    * 如果下载文件名是乱码,请直接双击打开解压文件,而不要"右键","释放到这里"。
    * 如果您发现该软件不能下载,请点报告错误,谢谢!
    * 本站不提供任何破解版的软件,收集网上,若侵犯了你的版权利益,敬请来信通知我们!

    天下网吧 网吧天下