VB¶ÁдINIÎļþ
'******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ·¾¶±ØÐëÍêÕû,ÎļþÃûÇ°ÃæµÄ¸÷¼¶Ä¿Â¼±ØÐë´æÔÚ,·ñÔòдÈë²»³É¹¦,¸Ãº¯Êý·µ»Ø FALSE Öµ.
'2.ÎļþÃûµÄ·¾¶ÖбØÐëΪ \\ ,ÒòΪÔÚVC++ÖÐ, \\ ²Å±íʾһ¸ö \ .
'3.Ò²¿É½«INIÎļþ·ÅÔÚ³ÌÐòËùÔÚĿ¼,´Ëʱ lpFileName ²ÎÊýΪ: ".\\student.ini".
'4.ʹÓÃǰÇëÏȳõʼ»¯±äÁ¿ProfileName
'******************************************************************************************
'* API º¯ÊýÉùÃ÷ *
'******************************************************************************************
'Ϊ³õʼ»¯ÎļþÖÐÖ¸¶¨µÄÌõĿȡµÃ×Ö´®
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String _
) As Long
'Ϊ³õʼ»¯ÎļþÖÐÖ¸¶¨µÄÌõÄ¿»ñȡһ¸öÕûÊýÖµ
Declare Function GetPrivateProfileInt Lib "kernel32" Alias _
"GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal nDefault As Long, _
ByVal lpFileName As String _
) As Long
'ÔÚ³õʼ»¯ÎļþÖ¸¶¨Ð¡½ÚÄÚÉèÖÃÒ»¸ö×Ö´®
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
Ïà¹ØÎĵµ£º
ÔÚDVDRip¡¢MKVµÈ720P¸ßÇåÊÓÆµÖУ¬srt¡¢ssa¡¢ass¡¢idx¡¢subµÈÍâ¹Ò×ÖÄ»·Ç³£Á÷ÐУ¬²ÉÓõÄÏÔʾ¼¼ÊõºÁ²»ÀýÍâ¶¼ÊÇVSFilter£¨ÔçÆÚ°æ±¾ÊÇVobSub£©ºÍAviSynthÍâ¹Ò×ÖÄ»²å¼þ¡£ÏÔʾµÄµãÕóºº×ַdz£Æ¯ÁÁ£¡ÏÖÔÚÁ÷ÐеĶàýÌå²¥·ÅÆ÷£¬ÈçKMPlayer¡¢±©·çÓ°ÒôµÈ¶¼²ÉÓÃÁËÉÏÊöDirectVobSub¼¼Êõ¡£ËäÈ»DirectVobSub¼ ......
c:\windows\sytem32\ieframe.dll\1ÕÒ²»µ½,´íÎó½â¾ö·½°¸.
Õâ¸öieframe.dllÊÇvbÖÐWebBrowser µ÷ÓõĿؼþ£¬µ±ÄãÓÃvbÔٴδò¿ªÄãµÄ¹¤³ÌÖ®ºó£¬¾Í¿ÉÒÔ·¢ÏÖÒÔǰµÄWebBrowser ¿Ø¼þûÓÐÁË¡£¶øÇÒÔٴμÓÔØÒ²ÊDz»ÄܵÄÁË£¬Õâʱ¾ÍÐèÒªÓõ½ÏÂÃæµÄ·½·¨À´´¦Àí£º
°ÑÒÔÏÂÄÚÈÝ×ö³ÉÒ»¸ö×¢²á±íÎļþfixieframe.reg£¬µ¼Èë×¢²á±í¼´¿É£º
Windows Re ......
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
MsgB ......
VBÖÐÀûÓÃCopyMemoryʹÓÃÖ¸Õë
¡¡¡¡Ò»¡¢Ö¸ÕëÊÇʲô£¿
¡¡¡¡²»ÐèҪȥÕÒʲô±ê×¼µÄ¶¨Ò壬Ëü¾ÍÊÇÒ»¸ö32λÕûÊý£¬ÔÚCÓïÑÔºÍÔÚVBÀï¶¼¿ÉÒÔÓÃLongÀàÐÍÀ´±íʾ¡£ÔÚ32λWindowsƽ̨ÏÂËüºÍÆÕͨµÄ32볤ÕûÐÍÊýûÓÐʲô²»Í¬£¬Ö»²»¹ýËüµÄÖµÊÇÒ»¸öÄÚ´æµØÖ·£¬ÕýÊÇÒòΪÕâ¸öÕûÊýÏóÕëÒ»ÑùÖ¸ÏòÒ»¸öÄÚ´æµØÖ·£¬ËùÒÔ¾ÍÓÐÁËÖ¸ÕëµÄ¸ÅÄî¡£
¡¡¡¡ÓÐÍ ......
×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
°üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
Dim cmSl As N ......