收藏本站论坛帮助移动版论坛(500下载币) 微信公众号

天下网吧论坛

 找回密码
 注册账号

QQ登录

只需一步,快速开始

用微信登录

扫一扫,用微信登录

雷柏网咖键盘鼠标
查看: 3464|回复: 4
收起左侧

[发布源码] 解决PUBWIN2015玩游戏时桌面右下方弹出小窗口

  [复制链接]
发表于 2016-6-4 03:06:42 | 显示全部楼层 |阅读模式
天下网吧手机APP,你有我有全都有

终于等到您!马上注册登录,做有身份的人!

您需要 登录 才可以下载或查看,没有帐号?注册账号   扫一扫,用微信登录

x
本帖最后由 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

VB6.rar

4.48 KB, 下载次数: 13, 下载积分: 下载币 -30 个

本帖被以下淘专辑推荐:

公告 免责声明:本帖为论坛注册用户所发,所说的内容仅代表其个人观点,与天下网吧无关。相关下载资源为坛友自愿上传,相关资源仅供学习用途,勿用在任何商业用途,否则后果自负。与天下网吧无关,如果有侵犯到你的权益烦请来信告知,我们会处理,Email:[email protected](PS:请勿上传和讨论任何盗版,破解的内容)
本站启用全站实名发帖人工先审后发机制,发布后需要人工审核通过后方可展示,所以当你发现自己发的回复或者新主题没显示时不用着急。所以请勿发广告帖,非法帖和无意义的灌水帖, 坚持宁缺毋滥的原则100年不动摇。回复时请直接回复有用的信息,勿直接留联系方式,否则可能会被封号!
公告 欢迎大家推荐网吧和网咖行业好友加入天下网吧的大家庭,不设门槛完全免费,一起扩大+维护好网吧行业老铁们的最后一块净土。
公告本站帖子为发帖者自发发布,转载请注明来源天下网吧论坛。发帖请遵守相关法律法规!如果分享的软件中有广告,锁主页等行为,请在发帖时注明!!!
公告欢迎大家加入天下网吧QQ群:198018,注意要注明加群原因,否则我保证您进不了群!
公告PS:发求助帖前建议先 【论坛搜索】,那里可能会有你要找的答案;
公告如果求助帖,已经解决了,麻烦您回复下已经解决并分享方法,方便其他同行借鉴您的方法。天下网吧论坛116万会员对您的行为表示感谢!
公告下载币只能通过论坛发帖(尤其是网吧相关的好贴,精华帖),任务,免费获取。不支持任何方式充值,别再联系客服发红包了,没用的!认真回帖是对发帖者的一种尊重!希望大家理解!下载币策略是为了提升大家分享自己的好的网吧相关经验的积极性,如果你分享了你的经验,大家互相学习,我保证你下载币倍增。 免费获取下载币链接
公告本站为方便广大会员方便访问,特意开发了android/iphone版的手机APP下载和微信小程序,用手机访问更自在哦,点击进入下载>>

 楼主| 发表于 2016-6-4 03:08:21 | 显示全部楼层
本帖最后由 llsr001 于 2016-6-4 03:11 编辑

...
回复

使用道具 举报

发表于 2016-6-4 10:51:20 | 显示全部楼层
这个是脚本吗
回复 支持 反对

使用道具 举报

发表于 2016-6-4 10:51:35 | 显示全部楼层
谢谢,非常需呀,感谢。
回复 支持 反对

使用道具 举报

发表于 2019-9-4 08:50:34 | 显示全部楼层
现在用PubwinOL了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册账号   扫一扫,用微信登录

本版积分规则

下载天下网吧手机APP,直接一键登录
您尚未登录,请登陆后浏览更精彩内容!
 注册账号
找回密码

手机版|纯文字版|联系我们|免责声明|网吧论坛 ( 闽ICP备11020296号-2 )|网站地图

GMT+8, 2020-4-3 02:53 , Processed in 0.109375 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表