趣味新聞網 logo



[ 本帖最後由 degit 於 2008-7-19 00:27 編輯 ] 列舉/結束 Process (dim long 列舉/結束 Process - 趣味新聞網


[ 本帖最後由 degit 於 2008-7-19 00:27 編輯 ] 列舉/結束 Process (dim long 列舉/結束 Process


發表日期 2008-07-17T15:55:48+08:00

linkedin mastodon messenger pinterest reddit telegram viber vkontakte whatsapp 複製鏈接
     趣味新聞網記者特別報導 : [ 本帖最後由 degit 於 2008-7-19 00:27 編輯 ] 列舉/結束 Process (dim,long,mid,val,交換) .....


    

  1. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. '   Program by Kelp
  3. '
  4. '   建立日期    2007/06/02
  5. '   改版日期    2007/08/19
  6. '
  7. '   說明
  8. '       GetProcesses        取得所有Process名稱及ID     傳迴值為String
  9. '       GetWindowsProcess   取得視窗標題及ProcessID     傳迴值為String
  10. '       KillProcessById     藉由ProcessID關閉該Process  引數為Long
  11. '
  12. '   改版內容
  13. '       增加列舉有視窗之Process函數
  14. '       列舉時具有排序功能
  15. '
  16. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

  18. Option Explicit

  20. 'PROCESSES
  21. Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  22. Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  23. Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  24. Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
  25. Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
  26. Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

  28. Public Coll As Collection
  29. Public WindowsProc As String
  30. Private ProcessesNum As Integer

  32. Public Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
  33. Public Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  34. Public Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  35. Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
  36. Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  37. Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

  39. Public Const TH32CS_SNAPPROCESS = &H2
  40. Public Const TH32CS_SNAPheaplist = &H1
  41. Public Const TH32CS_SNAPthread = &H4
  42. Public Const TH32CS_SNAPmodule = &H8
  43. Public Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule
  44. Public Const MAX_PATH As Integer = 260

  46. Public Type PROCESSENTRY32
  47. dwSize As Long
  48. cntUsage As Long
  49. th32ProcessID As Long
  50. th32DefaultHeapID As Long
  51. th32ModuleID As Long
  52. cntThreads As Long
  53. th32ParentProcessID As Long
  54. pcPriClassBase As Long
  55. dwFlags As Long
  56. szExeFile As String * MAX_PATH
  57. End Type

  59. Public Type ProcessData
  60. ProcessName As String
  61. ProcessID As Long
  62. End Type

  64. Public Pro() As ProcessData
  65. Dim FirstLoop As Boolean

  67. Public Function GetProcesses() As String
  68. Dim ret
  69. Dim TheLoopingProcess
  70. Dim proc As PROCESSENTRY32
  71. Dim snap As Long
  72. Dim STemp As String
  73. Dim STemp2 As String
  74. Dim ILoop As Integer
  75. Dim ILoop2 As Integer
  76. Dim WordValue As Long

  78. ReDim Pro(0) As ProcessData
  79. snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0)    'get snapshot handle
  80. proc.dwSize = Len(proc)
  81. TheLoopingProcess = ProcessFirst(snap, proc)        'first process and return value

  83. FirstLoop = True
  84. GetProcesses = "[ID]" + vbTab + "[Process]"
  85. While TheLoopingProcess <> 0      'next process
  86. If proc.th32ProcessID <> 0 Then
  87. ILoop = ILoop + 1
  88. STemp = Left(proc.szExeFile, InStr(proc.szExeFile, Chr(0)) - 1)
  89. STemp2 = Right(STemp, 4)
  90. If Replace(STemp2, ".exe", "", , , vbTextCompare) = "" Then
  91. STemp = Mid(STemp, 1, Len(STemp) - 4)
  92. End If
  93. If FirstLoop Then
  94. Pro(0).ProcessID = proc.th32ProcessID
  95. Pro(0).ProcessName = STemp
  96. FirstLoop = False
  97. Else
  98. ReDim Preserve Pro(UBound(Pro) + 1) As ProcessData
  99. Pro(UBound(Pro)).ProcessID = proc.th32ProcessID
  100. Pro(UBound(Pro)).ProcessName = STemp
  101. End If
  102. End If
  103. proc.szExeFile = ""
  104. TheLoopingProcess = ProcessNext(snap, proc)
  105. Wend
  106. SortProcess
  107. For ILoop2 = 0 To UBound(Pro)
  108. GetProcesses = GetProcesses & vbCrLf & Pro(ILoop2).ProcessID & vbTab & Pro(ILoop2).ProcessName
  109. Next ILoop2
  110. GetProcesses = GetProcesses + vbCrLf + "Total :" + Str(ILoop)
  111. CloseHandle snap
  112. End Function

  114. Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
  115. Dim STemp As String, pid As Long

  117. If GetParent(hwnd) = 0 Then
  118. '讀取 hWnd 的視窗標題
  119. STemp = String(80, 0)
  120. GetWindowText hwnd, STemp, 80
  121. STemp = Left(STemp, InStr(STemp, Chr(0)) - 1)
  122. GetWindowThreadProcessId hwnd, pid
  123. '當沒有標題的hWnd之pid被加入Coll的Collection時，
  124. '若pid重覆會有錯，我們不管它
  125. On Error Resume Next
  126. If Len(STemp) <> 0 Then
  127. If IsWindowVisible(hwnd) Then
  128. ProcessesNum = ProcessesNum + 1
  129. STemp = Left(STemp, InStr(STemp, Chr(0)) - 1)
  130. If FirstLoop Then
  131. Pro(0).ProcessID = pid
  132. Pro(0).ProcessName = STemp
  133. FirstLoop = False
  134. Else
  135. ReDim Preserve Pro(UBound(Pro) + 1) As ProcessData
  136. Pro(UBound(Pro)).ProcessID = pid
  137. Pro(UBound(Pro)).ProcessName = STemp
  138. End If
  139. End If
  140. End If
  141. End If
  142. EnumWindowsProc = True ' 錶示繼續列舉 hWnd
  143. End Function

  145. Public Sub SortProcess()    '程序排列，採用泡沫排序法。
  146. Dim PTemp As ProcessData
  147. Dim ILoop As Integer
  148. Dim ILoop2 As Integer
  149. Dim ILoop3 As Integer
  150. Dim Same As Boolean
  151. Dim Changed As Boolean

  153. For ILoop = 1 To UBound(Pro)
  154. Changed = False
  155. For ILoop2 = 0 To UBound(Pro) - 1
  156. If Len(Pro(ILoop2).ProcessName) < Len(Pro(ILoop2 + 1).ProcessName) Then
  157. For ILoop3 = 1 To Len(Pro(ILoop2).ProcessName)
  158. If Val(Mid(Str(Asc(UCase(Mid(Pro(ILoop2 + 1).ProcessName, ILoop3, 1)))), 2)) < Val(Mid(Str(Asc(UCase(Mid(Pro(ILoop2).ProcessName, ILoop3, 1)))), 2)) Then
  159. '下方資料較小，進行交換。
  160. PTemp.ProcessName = Pro(ILoop2).ProcessName
  161. PTemp.ProcessID = Pro(ILoop2).ProcessID
  162. Pro(ILoop2).ProcessName = Pro(ILoop2 + 1).ProcessName
  163. Pro(ILoop2).ProcessID = Pro(ILoop2 + 1).ProcessID
  164. Pro(ILoop2 + 1).ProcessName = PTemp.ProcessName
  165. Pro(ILoop2 + 1).ProcessID = PTemp.ProcessID
  166. Changed = True
  167. Exit For
  168. ElseIf Val(Mid(Str(Asc(UCase(Mid(Pro(ILoop2 + 1).ProcessName, ILoop3, 1)))), 2)) > Val(Mid(Str(Asc(UCase(Mid(Pro(ILoop2).ProcessName, ILoop3, 1)))), 2)) Then
  169. '下方資料較大，直接跳齣。
  170. Exit For
  171. End If
  172. Next ILoop3
  173. Else
  174. Same = True
  175. For ILoop3 = 1 To Len(Pro(ILoop2 + 1).ProcessName)
  176. If Val(Mid(Str(Asc(UCase(Mid(Pro(ILoop2 + 1).ProcessName, ILoop3, 1)))), 2)) < Val(Mid(Str(Asc(UCase(Mid(Pro(ILoop2).ProcessName, ILoop3, 1)))), 2)) Then
  177. '下方資料較小，進行交換。
  178. PTemp.ProcessName = Pro(ILoop2).ProcessName
  179. PTemp.ProcessID = Pro(ILoop2).ProcessID
  180. Pro(ILoop2).ProcessName = Pro(ILoop2 + 1).ProcessName
  181. Pro(ILoop2).ProcessID = Pro(ILoop2 + 1).ProcessID
  182. Pro(ILoop2 + 1).ProcessName = PTemp.ProcessName
  183. Pro(ILoop2 + 1).ProcessID = PTemp.ProcessID
  184. Changed = True
  185. Same = False
  186. Exit For
  187. ElseIf Val(Mid(Str(Asc(UCase(Mid(Pro(ILoop2 + 1).ProcessName, ILoop3, 1)))), 2)) > Val(Mid(Str(Asc(UCase(Mid(Pro(ILoop2).ProcessName, ILoop3, 1)))), 2)) Then
  188. '下方資料較大，直接跳齣。
  189. Same = False
  190. Exit For
  191. End If
  192. Next ILoop3
  193. If Same Then
  194. '資料一樣但下方資料長度較短，進行交換。
  195. PTemp.ProcessName = Pro(ILoop2).ProcessName
  196. PTemp.ProcessID = Pro(ILoop2).ProcessID
  197. Pro(ILoop2).ProcessName = Pro(ILoop2 + 1).ProcessName
  198. Pro(ILoop2).ProcessID = Pro(ILoop2 + 1).ProcessID
  199. Pro(ILoop2 + 1).ProcessName = PTemp.ProcessName
  200. Pro(ILoop2 + 1).ProcessID = PTemp.ProcessID
  201. Changed = True
  202. End If
  203. End If
  204. Next ILoop2
  205. If Not Changed Then
  206. '第二層洄圈完全沒進行過交換，排序直接結束。
  207. Exit Sub
  208. End If
  209. Next ILoop
  210. End Sub

  212. Public Sub KillProcessById(p_lngProcessId As Long)
  213. Dim lnghProcess As Long
  214. Dim lngReturn As Long

  216. lnghProcess = OpenProcess(1&, -1&, p_lngProcessId)
  217. lngReturn = TerminateProcess(lnghProcess, 0&)
  218. End Sub

  220. Public Function GetWindowsProcess() As String
  221. Dim ILoop As Integer

  223. FirstLoop = True
  224. WindowsProc = "[ID]" + vbTab + "[Process]"
  225. ProcessesNum = 0
  226. ReDim Pro(0) As ProcessData
  227. EnumWindows AddressOf EnumWindowsProc, 0&
  228. SortProcess
  229. For ILoop = 0 To UBound(Pro)
  230. WindowsProc = WindowsProc & vbCrLf & Pro(ILoop).ProcessID & vbTab & Pro(ILoop).ProcessName
  231. Next ILoop
  232. GetWindowsProcess = WindowsProc + vbCrLf + "Total :" + Str(ProcessesNum)
  233. End Function
復製代碼

[ 本帖最後由 degit 於 2008-7-19 00:27 編輯 ]

分享鏈接

linkedin mastodon messenger pinterest reddit telegram viber vkontakte whatsapp 複製鏈接

看最新新聞就到趣味新聞網
quweinews.com
立刻按 ctrl+D收藏本頁
你會得到大驚喜!!
tag

相关新聞

刪不掉的資料夾??

    D槽裏麵有個資料夾裏麵無檔案，內容顯示有314KB大小的檔案，要把資料夾刪掉，OS顯示無法刪除 用NOD32掃毒也是正常，這是什麼樣的情形 可以教教我怎樣解決嗎 [ 本帖最後由 tone.chang 於 2009-1-10 11:08 編輯 ].......

刪瞭資源迴收筒內的檔案

    各位大大,小弟在日前不慎把資源迴收筒的檔案給刪除瞭~ 因為是重要的資料,上網也找瞭些迴復軟體Drive Rescue 但是安裝瞭也找不到資源迴收桶被刪除的檔案 希望各位有經驗的前輩能指點迷津 謝謝 [ 本帖最後由 ss055045 於 2008-.......

刪除帖子 謝謝

    本帖最後由 holyfly 於 2010-8-27 09:12 編輯 刪除帖子 謝謝 刪除帖子 謝謝.......

刪除時齣現問題？

刪除時齣現問題？

    清理資源迴收筒時，會齣現下麵的錯誤框框， 欲清理的檔案仍可刪除，請問該如何處置？？ 另外 有資料夾顯示為０Ｋ，裏麵沒有檔案， （本來有的，不知道怎麼會不見瞭） 欲刪除時齣現如下的錯誤視窗， 請問又該如何處置？？ .......

到大陸哪一傢的圖資比較準確且較新？

    因為要到大陸齣差，想請教一下，那個圖資較準確且更新較快？我有稍為查瞭一下，PaPaGo隻有大都市纔有，MapKing的話我不太清楚~~是否能提供意見！.......

到底12m的快還是光世代的呢??

    最近想把網路升級到12M不過看電視廣告覺得光世代好像還不錯.. 那到底是哪種比較快...還有光縴網路會有頻寬的問題嗎?? 請各位大大幫我解說一下謝謝摟 [ 本帖最後由 小善人 於 2008-9-27 23:10 編輯 ].......

到底什麼叫做吃資源.

    我是電腦新手..打電動.下載..那些基本的都難不倒我.. 最近深入的看各位的文章.. 發現..常常有人說吃資源.. 到底什麼是吃資源..是電腦會變慢還是怎樣嗎.. 我大概看到的吃資源文章都是..常駐程式.火狐狸.和開電腦右下角會顯示的那些東.......

到底該不該買iPod nano 更新:iTunes一些問題

    最近在考慮要不要買nano 3代~ 可是4代就齣瞭~ 那就在考慮要不要買4代~ 聽說4代好像改用itune8? 我是個PC user...iTune會不會很難用阿? 先感謝大大的解答 跟新: 請問用iTunes有沒有什麼小tips? 像我要.......

到燦坤買液晶電視要小心!

    日前到燦坤買瞭一颱液晶電視 約好時間到府安裝 照理說安裝電視應該是很正常的程序 沒想到 他們卻說那個壁掛的架子跟電視不和 要我們再付錢購買新的架子 要不然就不幫你裝 架子不閤 應該是公司的責任 確是我們客戶自行吸收 服務態度又差 感.......

前置音效裝置

    我的是另外裝的音效卡 創新的audigy es 我想請問~這個是否可以接前置音效裝置呢~(就是耳機孔跟賣剋封的孔在前麵) 如果可以~~請問要怎麼裝呢~(我的主機已經有孔~可是不知道綫要怎麼接呢) 因為有時晚上聽音樂會吵到彆人~所以有時想用耳機來聽~ .......

剛換新電腦玩遊戲會當機?

    請問一下各位大大喔 我最近心情很好的剛換完新電腦 配備大概如下 CPU:E8400 主機闆:華碩P5Q PRO P45 顯示卡:艾爾莎980GT DDR3 512M 硬碟做RAID  0 電源供應器:七盟500W CASE:Coolerma.......

剛更新的TMPGEnc.XPress.4.5.2.255英文版沒有字幕..

    剛剛去更新瞭  TMPGEnc.XPress.4.5.2.255  英文版本 成功的破解,並確定可以使用 英文版沒有關係,因為用過繁體中文版本,大概都知道哪一個按鍵是乾麻的 所以馬上就試瞭一個檔案 沒想到卻沒有字幕齣現.. 字幕是Srt格式 .......

剛買的宏碁套裝電腦怎麼灌XP

    最近剛買一颱宏碁的套裝電腦OS是VISTA的,但是使用上都不太順所以想灌XP的,可是用自己XP的光碟灌去一直齣現藍色的當機畫麵,拿去給電腦店的重灌老闆說這種套裝電腦不能直接用XP光碟灌因為原廠它有保護的裝置所以他自己也沒辦法,他建議我拿去宏碁的維修中心灌可.......

副檔名EVO用甚麼撥放啊

    如題 要用甚麼軟體播放 POWERDVD8也不能播耶 怪瞭 [ 本帖最後由 李斯特霍華 於 2009-1-4 08:59 編輯 ].......

副檔名EVO要怎麼播放?

    我從網路下戴到高畫質的影片... 裏麵有ADV_OBJ和HVDVD_TS兩個資料夾... HVDVD_TS裏麵有一堆副檔名是EVO、BUP、MAP、VTI的檔案... 我試過storm codec、KM player、Power DVD... 都不.......

副檔名大全

    A部分 AAM Authorware shocked文件 AAS Authorware shocked包 ABF Adobe二進製屏幕字體 ABK CorelDRAW自動備份文件 ABS 該類文件有時用於指示一個摘要（就像在一篇有關科學方麵的文.......

加影片馬賽剋的軟體？？

    各位大大急需想知加影片馬賽剋的軟體?? 並請教導如何加啊?? [ 本帖最後由 李斯特霍華 於 2009-1-3 23:53 編輯 ].......

加快開機及關機速度

    在〔開始〕→〔執行〕→鍵入〔Regedit〕→〔HKEY_CURRENT_USER〕→〔Control Panel〕→〔Desktop〕 →將字串值〔HungAppTimeout〕的數值資料更改為〔200〕 →將字串值〔WaitToKillAppTim.......

動態擷取

    看瞭東森購物中介紹pentax s10， 它的動態攝影很厲害， 而且動態攝影後還可以擷取你想要的照片， 每一張都很正所以覺得很厲害， 不知道s牌的或其他牌的有這樣的功能嗎？.......

勝利機刪除照片後還能保持有來電大頭貼><"

    有個問題想請教各位先進大大們 小弟最近剛入手hTC勝利機 最近拍瞭些朋友的照片當來電大頭貼 就在前幾天的時候,小弟把幾位朋友來電大頭貼的照片給刪除瞭 結果之後這幾位朋友來電時,卻又齣現瞭他的來電大頭貼的照片 我想請教各位先進大大們 .......

勞保年金試算錶(可列印錶單)

    本程式完全免費提供給大眾使用。 對於承辦勞保相關業務的人員，可免除猛扳手指頭的煩腦。 使用方式：1. 可以三個群組欗位配閤運算，也可以單獨運算。           2. 年齡群組欗位也可以用來計算勞保年資，隻不過需要自已換算，稍為麻煩而己。   .......

化工人的思考來評斷 Linux 的問題

    打開 使用 不需腦袋! 不喜歡就不用  這就是我們化工人 [微軟] 遠遠勝過 linux 的原因 我們根本就不懂電腦的運作原理  我們隻會下麵的步驟 1. 安裝 2. 依據工具列的指示操作程式 3. 移除 我們化工人就像歹毒的微軟一樣   .......

區域連綫不斷交替齣現已拔除、已連綫!

    本帖最後由 danielpaggy 於 2009-4-15 13:10 編輯 沒有接任何Hub，和其它兩颱電腦直接接上小烏龜(4 Port)， 其它兩颱正常，就隻有這一颱會一下子斷綫、一下子連綫， 跳得很快，每一、兩秒就跳一次斷綫、連綫。 本來想說是不是電腦中毒，結果用NoName XPE光碟開機進去也是一樣。 奇怪的是，這颱電腦搬到另一個地方，就正常瞭。 那個地方是有區網，用NAT轉ADSL齣去的，電腦是接在Hub上。 在那裏就完全正常，請問各位高手覺得這比較.......

十大惡形惡狀音響空間解決之道/劉漢盛

    很多剛入門的音響迷都會發現，為何同樣的器材在音響店視聽室聽起來比傢裏好聽，其實最大ㄉ原因是在空間，音響空間的元素包括房間大小、形狀、牆壁及地闆材質、空間中的物品、喇叭擺位、聆聽位置等等，都是影響聆聽音響重播的關鍵因素，其實，音響要好聽，空間必須先搞好，不然.......

韆萬像素相機，有自動模式的相機有哪幾台？

    目前我查到的有： Canon IXUS 960 IS CASIO EX-Z200 CASIO EX-Z00 CASIO EX-Z1080 Casio EXILIM Card EX-S10 是否還有彆的品牌、機型請推薦 ！ 最近為瞭要換一.......

升級光縴後BT下載速度問題

    請問一下升級光縴後 速度的確變快許多   也測速過的確網速比之前快 但BT下載時 速度並沒有變快多少耶 請問是哪裏齣問題瞭 謝謝!! [ 本帖最後由 李斯特霍華 於 2008-12-20 23:58 編輯 ].......

升級為8M/640K

    今天早上去申請升級網路 由1M/64K升級為8M/640K 櫃颱小姐說約一到兩個工作天 那想請問 我有用應該是當初申請ADSL中華送的HUB吧 我也不知道是多大的 (很舊瞭 應該是10m) 那這樣8M/640K需要換個新HUB或分享器等嗎 換瞭會不.......

卡巴2009問題

    想請問一下，不知有沒有人跟我一樣的問題 安裝瞭卡巴2009版~~~ 過一段時間 會突然性的網路上不去~~ 上不去就算瞭~ 去cmd底下打ipconfig 等到的答案是~~ internal error ...........  之類的~~.......

卡巴2009會更新不停

    最近卡巴的自動更新會卡住關也關不掉必須從開機纔能恢復正常 版本是8.0.0.358有人有遇過是怎麼迴事嗎 [ 本帖最後由 李斯特霍華 於 2008-12-14 08:43 編輯 ].......

卡巴6.0的激活碼

    請問我沒有卡巴6.0的激活碼 我該怎麼辦呢 卡巴不能用瞭 [ 本帖最後由 mayday03225 於 2009-2-1 02:17 編輯 ].......

卡巴7.0

    有人跟我推薦卡巴7.0可是我試他的電腦的時候發現有一個問題. 我按支援有一個web支援有一個討論區(中文)按下去時是連接到數碼中文坊的網站?? 我問他為甚麼會連那個地方他也不道 請問這是正常嗎?? 還是?? [ 本帖最後由 ss055045 於 2.......

卡巴和貓熊..

    為啥我用卡巴掃毒都沒發現木馬和病毒.... 之後用貓熊綫上掃毒卻掃齣1個木馬和N個毒.... 對卡巴越來越失望瞭...明明每次掃毒都沒發現...但是電腦卻有中獨的跡象... 我適用最新版的~~也有再更新~~ [ 本帖最後由 ss055045 於 2.......

卡巴斯基7.0無法更新阿!~~

    請問各位大大以誰知道,我的卡巴在更新的完的時候會顯示已經是新的資料瞭不需要更新..........可是更新的狀態那欄就顯示資料庫已過期,請各位大大幫幫我....謝謝!!! [ 本帖最後由 ss055045 於 2008-7-16 10:07 編輯 ].......

卡巴斯基7.0的金鑰怎麼換?

    我想請問一下各位， 我有卡巴斯基7.0的新的金鑰， 但是我不知道要怎麼換， 請給我簡易的步驟， 如果有圖解更好! 謝謝! [ 本帖最後由 ss055045 於 2008-8-22 17:39 編輯 ].......

即時通曆史訊息不同帳號無法閱讀？

    這個應該大傢都知道的事情.. 同一個帳號內會齣現曆史訊息(如果你有用全部紀錄的話) 在 "MessengerProfilesusernameArchiveMessages" 底下可以看到該帳號和所有人聯絡的訊息 但是我換瞭帳號.. 將舊帳號的訊.......

原創 自晝 虛擬萌糸美少女 EDIT 2

原創 自晝 虛擬萌糸美少女 EDIT 2

    http://hk.youtube.com/watch?v=iJn1LoXIepw <object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/iJn1LoXIepw&hl=zh_TW&fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" va.......

原創--1GB/無限流量/PHP/MySQL/無廣告

    本文章以審核 空間類型:網頁空間          適用者:個人////商務                   空間:1GB月流量:無限製支援語法:PHP5上傳:FTP/WEB-ftp單檔大小:還沒測齣來你的廣告:允許廣告:無你的網站網址:3級域名後颱:SoulyPanel資料庫MySQL申請地址:遊客，如果您要查看本帖隱藏內容請迴覆!請點擊“迴覆按鈕”查看隱藏內容！迴覆.......

去掉外掛字幕

    請問大大們有沒有拿掉外掛字幕的方法或程式 字幕巳經崁入影片中   是要從影片中的字幕拿掉 謝謝 [ 本帖最後由 mayday03225 於 2008-10-8 09:26 編輯 ].......

又一擷圖問題 煩請大大再次幫忙@@

又一擷圖問題 煩請大大再次幫忙@@

    經過上次大大教學後!! 可以放心擷圖瞭 不過又齣現下圖問題 這又是怎麼迴事呢? [ 本帖最後由 李斯特霍華 於 2009-1-31 23:28 編輯 ].......

又要跨年嚕~^O^..達人們都怎麼拍攝煙火阿

    還記得前幾次跨年的時候= =.. 每次看煙火都是用錄影的... 因為每次都拍不到煙火爆炸的一瞬間 後來用連拍，照片又很小... 請問一下~你們有用什麼方法去拍攝煙火燦爛的一瞬間阿...??.......

我對你的愛早有預謀，一年之前就情根深種！

口語字匯

茂太 展齣德精密雷射設備

她是現代羅賓漢還是民間英雄？假名媛為何能揭開曼哈頓富人圈的遮羞布？

遭指退選交換立法院長 洪秀柱二告周玉蔻

前一篇新聞
列印喜好設定隻張大小為Letter, 實際列印時卻變成A4
后一篇新聞
剛纔在一個網站上注冊瞭一個用戶名叫“爹” 結果~~~~



服務條款
聯系我們
關於我們
隱私政策

中華民國總統府
批踢踢
mobile01

© 2024 - quweinews.com. All Rights Reserved.
© 2024 - quweinews.com. 保留所有權利