wangmeng3488700
发表于 2013-1-27 10:57:16
好东西学习中,谢谢楼主
gniw
发表于 2013-2-21 00:35:28
我#NoTrayIcon
Local $Gif = @ScriptDir & '\MMqq.gif'
;MM图片文件过大,不上传了,下面这行可直接下载,不保证链接一直有效。下载完可删除下载这段。
If Not FileExists($Gif) Then
Tooltip('正在网上拉MM,请稍候…')
Local $Size = InetGet('http://m3.img.libdd.com/farm4/97/1E1EC4CD274C2ABFCF23D65E8397F161_275_450.GIF', $Gif, 1)
Tooltip('')
If $Size <> 2095058 Then Exit MsgBox(48, $Size & ':(', 'MM跟丢了…')
EndIf
HotKeySet('{esc}', '_Exit')
Local $Gui = GUICreate('无边框Gif动画界面,可拖动及右键菜单例子 By afan', 265, 430, -1, -1, 0x80000000, 0x00000008)
;$WS_POPUP = 0x80000000 $WS_EX_TOPMOST = 0x00000008
Local $iLb = GUICtrlCreateLabel('', 0, 0, 265, 430, -1, 0x00100000) ;$GUI_WS_EX_PARENTDRAG = 0x00100000
Local $oIE = ObjCreate('Shell.Explorer.2')
GUICtrlCreateObj($oIE, -15, -20, 300, 490)
$oIE.navigate($Gif)
GUISetState()
Local $DummyMenu, $ContextMenu, $hMenu, $ExitMenuItem, $CurInfo
$DummyMenu = GUICtrlCreateDummy()
$ContextMenu = GUICtrlCreateContextMenu($DummyMenu)
$hMenu = GUICtrlGetHandle(-1)
$ExitMenuItem = GUICtrlCreateMenuItem('退出', $ContextMenu)
While 1
$CurInfo = GUIGetCursorInfo($Gui)
If Not @Error And ($CurInfo = 1 And $CurInfo = $iLb) Then _ShowMenu($Gui, $hMenu)
Switch GUIGetMsg()
Case -3, $ExitMenuItem
_Exit()
EndSwitch
WEnd
Func _ShowMenu($hWnd, $hMenu)
Local $arPos = MouseGetPos()
Local $x = $arPos
Local $y = $arPos
DllCall('user32.dll', 'int', 'TrackPopupMenuEx', 'hwnd', $hMenu, 'int', 0, 'int', $x, 'int', $y, 'hwnd', $hWnd, 'ptr', 0)
EndFunc ;==>_ShowMenu
Func _Exit()
Exit
EndFunc ;==>_Exit
nangua111111
发表于 2013-2-22 11:54:45
看看
学习
liupeng1990607
发表于 2013-3-5 13:52:17
求源码!!!!!!!!!!!!!!!!
PPTBS
发表于 2013-3-5 21:27:03
这个要支持了
chen5306514
发表于 2013-3-15 09:06:15
看看啊啊啊啊
fjf123
发表于 2013-3-15 21:53:56
感觉还行,学习学习。
mbdnmt
发表于 2013-3-16 02:26:27
MDB数据库? 我觉得就这点信息Excel表格记录就足够用呀。。。
xeszero
发表于 2013-3-20 11:53:44
看起来非常不错啊
xujinrongko
发表于 2013-3-21 10:10:13
好东西啊,,,,,,,,
fangming202
发表于 2013-3-25 17:29:54
高手不得不让人佩服啊。
silvay22
发表于 2013-4-9 11:25:32
很好,很强大的说。
xyzc1989
发表于 2013-4-14 02:47:23
{:face (303):}
jirunyang
发表于 2013-5-6 23:03:31
学习学习!!!!!!
rhci
发表于 2013-5-7 21:20:37
...我就先看看 说不定需要 人做东西了