VB/VB.NET ½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î
VB.NET ½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î´úÂë:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MsgBox("µ±Ç°³ÌÐòÒÑÔËÐÐ,Çë½áÊø½ø³ÌºóÖØÐ´ò¿ª£¡", vbOKOnly, "Ìáʾ")
Me.Close()
End If
End Sub
''''''''''''''''''''''''''''''''''''
'³ÌÐò´úÂ벿·Ö
'.................
'
'''''''''''''''''''''''''''''''''''
End Class
VB½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î´úÂë:
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "µ±Ç°³ÌÐòÒÑÔËÐÐ,Çë½áÊø½ø³ÌºóÖØÐ´ò¿ª£¡", vbOKOnly, "Ìáʾ"
End If
End Sub
''''''''''''''''''''''''''''''''''''
'³ÌÐò´úÂ벿·Ö
'.................
'
'''''''''''''''''''''''''''''''''''
Ïà¹ØÎĵµ£º
µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚFormÖÐÈçÏÂÊéд´úÂ룺
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '°´ Ctrl+F1 ¼¤»îÖ¸¶¨³ÌÐò£¬F1µÄAsciiÂëΪ112
SetHotkey 2, 113, "Add" '°´ F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
SetHotkey 3, "Ctrl+Alt,113", "Add" '°´ Ctrl+Alt+F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
End Sub
Priva ......
Óɵ×ÖÁÉÏÊÇ£º
• ÍйÜ×ÊÔ´
• WMI »ù´¡½á¹¹
• ʹÓÃÕß
ÍйÜ×ÊÔ´
ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµ ......
vbÖÆ×÷¿ÉÊä³öº¯ÊýµÄͨÓÃDLL---VB_DLL_LinkÓ÷¨
ÂÛ̳ԽÀ´Ô½¶àÈ˹Ø×¢dll£¬ÌØ·ÖÏíÒ»ÏÂvbÖÆ×÷¿ÉÊä³öº¯ÊýµÄͨÓÃDLL---VB_DLL_LinkÓ÷¨
´ó¼ÒÖªµÀ£¬VB6Ö»ÄÜÖÆ×÷ActiveX DLLÎļþ£¬ÖÆ×÷ÄÜÊä³öº¯ÊýµÄͨÓÃDLLÎļþͨ³£ÒªÓõ½VCµÈ¹¤¾ß¡£Êµ¼ÊÉÏ£¬VBÔÚ±àÒëµÄʱºò¼ÓÒÔ¿ØÖÆ£¬¾¹ýÊʵ±´¦ÀíÒ²ÊÇ¿ÉÒÔÖÆ×÷ͨÓÃDLLµÄ¡£Ê¹ÓÃVB_DLL_ ......
ÔÚDVDRip¡¢MKVµÈ720P¸ßÇåÊÓÆµÖУ¬srt¡¢ssa¡¢ass¡¢idx¡¢subµÈÍâ¹Ò×ÖÄ»·Ç³£Á÷ÐУ¬²ÉÓõÄÏÔʾ¼¼ÊõºÁ²»ÀýÍâ¶¼ÊÇVSFilter£¨ÔçÆÚ°æ±¾ÊÇVobSub£©ºÍAviSynthÍâ¹Ò×ÖÄ»²å¼þ¡£ÏÔʾµÄµãÕóºº×ַdz£Æ¯ÁÁ£¡ÏÖÔÚÁ÷ÐеĶàýÌå²¥·ÅÆ÷£¬ÈçKMPlayer¡¢±©·çÓ°ÒôµÈ¶¼²ÉÓÃÁËÉÏÊöDirectVobSub¼¼Êõ¡£ËäÈ»DirectVobSub¼ ......
ÖØÊ°VBÖ®ËÄ£¬ÈÕÖ¾¼Óǿƪ
¹Ø¾¢ËÉ PMP
Ò»¡¢¹ØÓÚÈÕÖ¾¼Ç¼¹¦ÄÜ
Ö÷Òª¹¦ÄܵãÓÐ
1 ÔÚ³ÌÐòĿ¼ÏÂÉú³ÉlogĿ¼£¬ÓÃÓÚ±£´æÈÕÖ¾Îļþ¡£
2 ×Ô¶¯ÔÚlogĿ¼ÖУ¬Éú³ÉÈÕÖ¾Îļþ£¬ÎļþÃüÃûÓÃÄêÔÂÈÕ¶¨Ò壬Èç20100119_log.log¡£
3 ÔÚÈÕÖ¾ÎļþÖУ¬Ã¿ÐмǼһ¸öʱ¼äµãµÄÔËÐÐÄÚÈÝ¡£Ê±¼äµãµÄ¾«¶ÈÓ¦¸Ã´ïµ½ºÁÃë¡£
4 ÔÚÈÕÖ¾ÎļþÖУ¬Ã ......