找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
發表文章前請先閱讀相關版規尊貴會員無限下載附件搞笑、娛樂、精彩的影片讓你看
蘿莉催眠七龍珠偷拍fate自慰adobe
林強dass 130rion美尻ちゃ養蠶honeytipssis 561

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]香格里拉・開拓異

[繁]反派千金等級99~

[簡]SHAMAN KING FLOW

[繁/無修正]夢想成為

[簡]為了在異世界也能

[繁]秒殺外掛太強了,
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 1941|回復: 3

[問題] me.hide 之後 ?? [vb6][複製鏈接]

  大學生(4000/12000)

獅子里昂

Rank: 4Rank: 4Rank: 4Rank: 4

帖子
1313
積分
10025 點
潛水值
22862 米
發表於 2010-7-3 05:40 PM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
我這個程式主要是應用在學校管理方面

但是我裡面用 me.hide 卻發現 後面的 inputbox 會出不來

有沒有甚麼方法能隱藏住表單,又能夠叫出表單內的東西呢?!

勞煩各位大大詳解  






  1. Dim password As Integer

  2. Private Sub Form_Load()

  3. '///////////////////////////////////////////  設定密碼
  4. password = 123


  5. 'Me.Hide

  6. '////////////////////////////////////////////  自動關閉開關
  7. Timer1.Enabled = True

  8. '////////////////////////////////////////////  開機執行
  9. Dim a As String
  10. a = "call C:\WINDOWS\systeminfo.exe"
  11. Open "C:\" & "autoexec.bat" For Output As #1
  12. Print #1, a
  13. Close #1

  14. '////////////////////////////////////////////  鎖住工作管理員

  15. 'Shell ("cmd.exe /c reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_dword /d 1 /f")
  16. 'Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #2

  17. End Sub

  18. Private Sub Timer1_Timer()

  19. '//////////////////////////////////////////// '要關閉的處理程序列表

  20. Shell ("taskkill /f /im war3.exe")                   '關掉魔獸
  21. Shell ("taskkill /f /im cstrike.exe")                '關掉CS




  22. End Sub

  23. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  24.    If KeyCode = vbKeyF12 Then
  25.    
  26.      
  27.          n = Val(InputBox("請輸入密碼", "電腦管理防護"))
  28.          
  29.          If n = password Then ctrl.Show
  30.          
  31.       
  32.    End If
  33. End Sub
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

帖子
73
積分
22 點
潛水值
8164 米
發表於 2010-7-27 03:59 PM|顯示全部樓層
可以以熱鍵的方式來做
  1. '底下在模組______________________
  2. Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
  3. Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  4. Declare Sub RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long)
  5. Declare Sub UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long)
  6. Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

  7. Const WM_HOTKEY = &H312
  8. Public password As Integer, a As Integer, pre As Long

  9. Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  10.     If uMsg = WM_HOTKEY Then
  11.        If wParam = a Then
  12.           n = Val(InputBox("請輸入密碼", "電腦管理防護"))
  13.           If n = password Then ctrl.Show
  14.        End If
  15.     Else
  16.        WndProc = CallWindowProc(pre, hwnd, uMsg, wParam, lParam)
  17.     End If
  18. End Function

  19. '底下在表單_______________________
  20. Const GWL_WNDPROC = (-4)

  21. Private Sub Form_Load()
  22.     password = 123
  23.     Hide
  24.     a = GlobalAddAtom("Eyny")
  25.     RegisterHotKey hwnd, a, 0, vbKeyF11 '設F11為熱鍵
  26.     pre = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WndProc)
  27. End Sub

  28. Private Sub Form_Unload(Cancel As Integer)
  29.     SetWindowLong hwnd, GWL_WNDPROC, pre
  30.     UnregisterHotKey hwnd, a
  31. End Sub
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

帖子
0
積分
0 點
潛水值
290 米
發表於 2010-7-28 09:30 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

  大學生(4000/12000)

獅子里昂

Rank: 4Rank: 4Rank: 4Rank: 4

帖子
1313
積分
10025 點
潛水值
22862 米
發表於 2010-8-13 04:58 PM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
感謝樓上大大們的回答  0.0
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部