| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 738 人关注过本帖, 1 人收藏
标题:开始图标消失程序求解
只看楼主 加入收藏
bastard823
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2010-2-26
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:3 
开始图标消失程序求解
程序源码
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
Dim task, win, bswap
task = FindWindow("Shell_TrayWnd", vbNullString)
win = FindWindowEx(task, 0, "Button", vbNullString)
If Not bswap Then
SetParent win, Me.hwnd
ShowWindow win, 0
End If
bswap = Not bswap
End Sub
求破解其的程序源码!谢谢各位大神!
搜索更多相关主题的帖子: 图标 求解 
2010-07-28 20:11
zmh886
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:12
帖 子:238
专家分:1305
注 册:2010-6-2
收藏
得分:14 
破解其程序源码? 不知道你要做什么。

http://www./
2010-07-28 21:42
bastard823
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2010-2-26
收藏
得分:0 
就是写一个程序让开始图标还原
2010-07-30 16:36
lzm
Rank: 1
来 自:广东
等 级:新手上路
帖 子:156
专家分:0
注 册:2007-9-2
收藏
得分:0 
可以的。你可以用API,你新建一个command1按钮然后全局代码如下:
Option Explicit

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE = 0 '隐藏开始按钮
Private Const SW_SHOW = 5 '显示开始按钮

Private Sub command1_Click(Index As Integer)
    Dim hLong As Long
    Dim hwnd As Long
   
    hwnd = FindWindow("Shell_TrayWnd", vbNullString)
    hLong = FindWindowEx(hwnd, 0, "Button", vbNullString)
    ShowWindow hLong, SW_SHOW
end sub
'这样,只要你点按钮,你的开始按钮就显示了。
'如果你要隐藏开始按钮,就用:ShowWindow hLong, SW_HIDE
2011-03-23 14:13
快速回复:开始图标消失程序求解
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038149 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved