250 - 未知模塊：c:\WINDOWS\resources\windowblinds\wblind.dll
專注于為中小企業(yè)提供成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)坡頭免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了近千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。
251 - 未知模塊：c:\工具軟件區(qū)\新QQ\Tencent\MSIMG32.dll
252 - 未知模塊：c:\WINDOWS\resources\windowblinds\wbhelp.dll
253 - 未知模塊：c:\工具軟件區(qū)\新QQ\Tencent\FinePlus.dll
254 未知進程：c:\工具軟件區(qū)\ftcleaner.exe 命令行: C:\工具軟件區(qū)\FTCleaner.exe
255 - 未知模塊：c:\工具軟件區(qū)\MSVBVM60.DLL
256 - 未知模塊：c:\工具軟件區(qū)\VB6CHS.DLL
257 - 未知模塊：c:\WINDOWS\resources\windowblinds\wblind.dll
258 - 未知模塊：c:\WINDOWS\resources\windowblinds\wbhelp.dll
259 - 未知模塊：c:\WINDOWS\system32\SogouPy.ime
260 - 未知模塊：c:\工具軟件區(qū)\搜狗\sogouinput\Plugin\sgimeword.dll
261 - 未知模塊：c:\工具軟件區(qū)\ftcapi.dll
262 - 未知模塊：c:\工具軟件區(qū)\ftcapi3.dll
263 - 未知模塊：c:\工具軟件區(qū)\ftcapi2.dll
264 - 未知模塊：c:\WINDOWS\system32\tcpipdog0.dll
265 未知進程：c:\工具軟件區(qū)\fyganalyze.exe 命令行: C:\工具軟件區(qū)\FygAnalyze.exe
266 - 未知模塊：c:\WINDOWS\resources\windowblinds\wblind.dll
267 - 未知模塊：c:\WINDOWS\resources\windowblinds\wbhelp.dll
268 - 未知模塊：c:\WINDOWS\system32\SogouPy.ime
269 - 未知模塊：c:\工具軟件區(qū)\搜狗\sogouinput\Plugin\sgimeword.dll
270 - 未知模塊：c:\工具軟件區(qū)\psapi.dll
啟動信息：
271 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
igfxtrayC:\WINDOWS\system32\igfxtray.exe
272 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
igfxpersC:\WINDOWS\system32\igfxpers.exe
273 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
igfxhkcmdC:\WINDOWS\system32\hkcmd.exe
274 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
ehTrayC:\WINDOWS\ehome\ehtray.exe
275 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
CpqsetC:\Program Files\HPQ\Default Settings\cpqset.exe
276 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
RavTask"C:\Program Files\Rising\Rav\RavTask.exe" -system
277 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
WebPlayerUpdater"C:\Program Files\VIEWGOOD\WebPlayer 2007\WebPlayerDeamon.exe" /Hide
278 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
360AntiarpC:\工具軟件區(qū)\360安全衛(wèi)士\360safe\AntiArp\AntiArp.exe /start
279 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
Windows木馬防火墻C:\工具軟件區(qū)\Trojanwall.exe
280 [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
ctfmon.exeC:\WINDOWS\system32\ctfmon.exe
281 [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon]
ShellExplorer.exe
282 [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon]
Userinituserinit.exe,
283 [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon]
UIHostlogonui.exe
284 [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Windows]
AppInit_DLLs
285 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify]
WBSrvC:\WINDOWS\Resources\WindowBlinds\wbsrv.dll
286 [C:\Documents and Settings\hp\「開始」菜單\程序\啟動\]
C:\Documents and Settings\hp\「開始」菜單\程序\啟動\desktop.ini
287 [C:\Documents and Settings\All Users\「開始」菜單\程序\啟動\]
C:\Documents and Settings\All Users\「開始」菜單\程序\啟動\desktop.ini
IE輔助對象BHO信息：
288 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects]
{01443AEC-0FD1-40fd-9C87-E93D1494C233}C:\Program Files\Thunder Network\Thunder\ComDlls\TDAtOnce_Now.dll
289 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects]
{889D2FEB-5411-4565-8998-1DD2C5261283}C:\Program Files\Thunder Network\Thunder\ComDlls\xunleiBHO_Now.dll
IE右鍵菜單信息：
290 [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt]
使用迅雷下載C:\Program Files\Thunder Network\Thunder\Program\geturl.htm
291 [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt]
使用迅雷下載全部鏈接C:\Program Files\Thunder Network\Thunder\Program\getallurl.htm
292 [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt]
導(dǎo)出到 Microsoft Office Excel(X)res://C:\PROGRA~1\MICROS~2\OFFICE11\EXCEL.EXE/3000
293 [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt]
添加到QQ表情C:\工具軟件區(qū)\新QQ\Tencent\AddEmotion.htm
IE工具欄項信息：
294 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions]
{08B0E5C0-4FCB-11CF-AAA5-00401C608501}
295 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions]
{09BA8F6D-CB54-424B-839C-C2A6C8E6B436}C:\Program Files\Thunder Network\Thunder\Thunder.exe
296 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions]
{e2e2dd38-d088-4134-82b7-f2ba38496583}%windir%\Network Diagnostic\xpnetdiag.exe
ActiveX對象DPF信息：
297 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{2375BEE5-F175-4F1C-81EC-8E4E2E72E2DD}C:\工具軟件區(qū)\新QQ\Tencent\Qzone\QQPhotoDraw.dll
298 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{488A4255-3236-44B3-8F27-FA1AECAA8844}C:\WINDOWS\system32\aliedit\aliedit.dll
299 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{5EC7C511-CD0F-42E6-830C-1BD9882F3458}C:\WINDOWS\DOWNLO~1\POWERP~1.DLL
300 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{8AD9C840-044E-11D1-B3E9-00805F499D93}
301 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{8D9E0B29-563C-4226-86C1-5FF2AE77E1D2}C:\WINDOWS\system32\SUBMIT~1.DLL
302 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{9C3C2C08-C494-4F52-AE94-85156A447D43}
303 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{CAFEEFAC-0015-0000-0006-ABCDEFFEDCBA}
304 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{CAFEEFAC-0016-0000-0003-ABCDEFFEDCBA}
305 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{CAFEEFAC-FFFF-FFFF-FFFF-ABCDEFFEDCBA}C:\Program Files\Java\jre1.6.0_03\bin\npjpi160_03.dll
306 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Code Store Database\Distribution Units]
{D27CDB6E-AE6D-11CF-96B8-444553540000}C:\WINDOWS\system32\Macromed\Flash\Flash9e.ocx
網(wǎng)絡(luò)服務(wù)SPI信息：
307 c:\windows\system32\tcpipdog0.dll
308 c:\windows\system32\tcpipdog0.dll
309 c:\windows\system32\tcpipdog0.dll
310 c:\windows\system32\tcpipdogr0.dll
311 c:\windows\system32\tcpipdogr0.dll
映像劫持IFEO信息：
312 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options]
Your Image File Name Here without a pathC:\WINDOWS\system32\ntsd -d
系統(tǒng)服務(wù)信息：
313 [ AddFiltr | AddFiltr | 停用 ]
c:\program files\hewlett-packard\hp quick launch buttons\addfiltr.exe
314 [ ASP.NET State Service | aspnet_state | 停用 ]
c:\windows\microsoft.net\framework\v1.1.4322\aspnet_state.exe
315 [ Contrl Center of Storm Media | ccosm | 啟動 ]
c:\工具軟件區(qū)\新建文件夾\stormliv.exe
316 [ COM+ System Application | COMSysApp | 啟動 ]
c:\windows\system32\dllhost.exe /processid:{02d4b3f1-fd88-11d1-960d-00805fc79235}
317 [ Human Interface Device Access | HidServ | 停用 ]
c:\windows\system32\svchost.exe - c:\windows\system32\hidserv.dll
318 [ hpqwmiex | hpqwmiex | 啟動 ]
c:\program files\hewlett-packard\shared\hpqwmiex.exe
319 [ InstallDriver Table Manager | IDriverT | 停用 ]
c:\program files\common files\installshield\driver\1050\intel 32\idrivert.exe
320 [ LightScribeService Direct Disc Labeling Service | LightScribeService | 啟動 ]
c:\program files\common files\lightscribe\lssrvc.exe
321 [ Office Source Engine | ose | 停用 ]
c:\program files\common files\microsoft shared\source engine\ose.exe
322 [ Rising Proxy Service | RfwProxySrv | 啟動 ]
c:\program files\rising\rfw\rfwproxy.exe
323 [ Rising Process Communication Center | RsCCenter | 啟動 ]
c:\program files\rising\rav\ccenter.exe
324 [ Rising RealTime Monitor | RsRavMon | 停用 ]
c:\program files\rising\rav\ravmond.exe
325 [ MS Software Shadow Copy Provider | SwPrv | 停用 ]
c:\windows\system32\dllhost.exe /processid:{6fbaedaa-c832-4e7c-b2f7-01ed47943604}
326 [ Windows Media Connect Service | WMConnectCDS | 停用 ]
c:\program files\windows media connect 2\wmccds.exe
系統(tǒng)驅(qū)動信息：
327 [ 360AntiArp | 360AntiArp | 啟動 ]
c:\windows\system32\drivers\360antiarp.sys
328 [ FTCkillfile | FTCkillfile | 停用 ]
c:\windows\system32\drivers\ftckillfile.sys
329 [ FTCProtect | FTCProtect | 啟動 ]
c:\windows\system32\drivers\ftcprotect.sys
330 [ FTCProTime | FTCProTime | 啟動 ]
c:\windows\system32\drivers\ftcprotime.sys
331 [ HookCont | HookCont | 啟動 ]
C:\WINDOWS\system32\drivers\hookcont.sys
332 [ HookNtos | HookNtos | 啟動 ]
C:\WINDOWS\system32\drivers\hookntos.sys
333 [ HookReg | HookReg | 啟動 ]
C:\WINDOWS\system32\drivers\hookreg.sys
334 [ HookSys | HookSys | 啟動 ]
C:\WINDOWS\system32\drivers\hooksys.sys
335 [ HookUrl | HookUrl | 啟動 ]
c:\program files\rising\rfw\hookurl.sys
336 [ Netgroup Packet Filter | NPF | 停用 ]
c:\windows\system32\drivers\npf.sys
337 [ npkcrypt | npkcrypt | 停用 ]
c:\工具軟件區(qū)\qq\npkcrypt.sys
338 [ PxHelp20 | PxHelp20 | 啟動 ]
c:\windows\system32\drivers\pxhelp20.sys
339 [ Rising Rfwbase Driver | RfwBase | 啟動 ]
c:\windows\system32\drivers\rfwbase.sys
340 [ Srramdisk Driver | RRamdisk | 啟動 ]
c:\windows\system32\drivers\rramdisk.sys
341 [ RsAntiSpyware | RsAntiSpyware | 啟動 ]
c:\windows\system32\drivers\rsboot.sys
342 [ RsFwDrv | RsFwDrv | 啟動 ]
c:\program files\rising\rfw\rsfwdrv.sys
343 [ RsNTGDI | RsNTGDI | 啟動 ]
c:\windows\system32\drivers\rsntgdi.sys
344 [ TCP/IP Protocol Driver | Tcpip | 啟動 ]
c:\windows\system32\drivers\tcpip.sys
345 [ TesSafe | TesSafe | 停用 ]
c:\windows\system32\tessafe.sys
已經(jīng)加載的驅(qū)動信息：
346 C:\WINDOWS\system32\drivers\rsboot.sys
347 C:\WINDOWS\system32\drivers\pxhelp20.sys
348 C:\WINDOWS\system32\drivers\rramdisk.sys
349 c:\windows\system32\drivers\360antiarp.sys
350 C:\WINDOWS\system32\drivers\tcpip.sys
351 c:\program files\rising\rfw\rsfwdrv.sys
352 c:\program files\rising\rfw\rfwhelp.sys
353 C:\WINDOWS\system32\drivers\hookhelp.sys
354 C:\WINDOWS\system32\drivers\dump_iastor.sys
355 C:\WINDOWS\system32\drivers\rfwbase.sys
356 c:\program files\rising\rfw\hookurl.sys
357 C:\WINDOWS\system32\drivers\ftcprotect.sys
358 C:\WINDOWS\system32\drivers\ftcprotime.sys
359 C:\WINDOWS\system32\drivers\rsntgdi.sys
360 C:\WINDOWS\system32\drivers\hooksys.sys
361 C:\WINDOWS\system32\drivers\hookreg.sys
362 C:\WINDOWS\system32\drivers\hookntos.sys
363 C:\WINDOWS\system32\drivers\hookcont.sys
在c語言中每一個變量都有兩個屬性一個是值，一個是址。比如inta=2;變量a的值是2，變量a的地址，可以用取地址
操作符
獲取，即a。因此以C語言的函數(shù)傳遞中具備兩種方式傳遞參數(shù)，一種是傳址，一種傳值。比如voidf1(intv){;}//函數(shù)f1v
Option?Explicit
'mTextUTF.bas
'模塊：UTF文本文件訪問
'作者：zyl910
'版本：1.0
'日期：2006-1-23
'==?說明?===================================================
'支持Unicode編碼的文本文件讀寫。暫時支持ANSI、UTF-8、UTF-16LE、UTF-16BE這幾種編碼文本
'==?更新記錄?===============================================
'[V1.0]?2006-1-23
'1.支持最常見的ANSI、UTF-8、UTF-16LE、UTF-16BE這幾種編碼文本
'##?編譯預(yù)處理常數(shù)?#########################################
'==?全局常數(shù)?===============================================
'IncludeAPILib：引用了API庫，此時不需要手動寫API聲明
'##?API?####################################################
#If?IncludeAPILib?=?0?Then
'==?File?===================================================
Private?Declare?Function?CreateFile?Lib?"kernel32"?Alias?"CreateFileA"?(ByVal?lpFileName?As?String,?ByVal?dwDesiredAccess?As?Long,?ByVal?dwShareMode?As?Long,?ByVal?lpSecurityAttributes?As?Long,?ByVal?dwCreationDisposition?As?Long,?ByVal?dwFlagsAndAttributes?As?Long,?ByVal?hTemplateFile?As?Long)?As?Long
Private?Declare?Function?CloseHandle?Lib?"kernel32"?(ByVal?hObject?As?Long)?As?Long
Private?Declare?Function?ReadFile?Lib?"kernel32"?(ByVal?hFile?As?Long,?lpBuffer?As?Any,?ByVal?nNumberOfBytesToRead?As?Long,?lpNumberOfBytesRead?As?Long,?ByVal?lpOverlapped?As?Long)?As?Long
Private?Declare?Function?WriteFile?Lib?"kernel32"?(ByVal?hFile?As?Long,?lpBuffer?As?Any,?ByVal?nNumberOfBytesToWrite?As?Long,?lpNumberOfBytesWritten?As?Long,?ByVal?lpOverlapped?As?Long)?As?Long
Private?Declare?Function?GetFileSize?Lib?"kernel32"?(ByVal?hFile?As?Long,?lpFileSizeHigh?As?Long)?As?Long
Private?Declare?Function?SetFilePointer?Lib?"kernel32"?(ByVal?hFile?As?Long,?ByVal?lDistanceToMove?As?Long,?lpDistanceToMoveHigh?As?Long,?ByVal?dwMoveMethod?As?Long)?As?Long
Private?Const?INVALID_HANDLE_VALUE?=?-1
Private?Const?GENERIC_READ?=?H80000000
Private?Const?GENERIC_WRITE?=?H40000000
Private?Const?FILE_SHARE_READ?=?H1
Private?Const?FILE_SHARE_WRITE?=?H2
Private?Const?Create_NEW?=?1
Private?Const?Create_ALWAYS?=?2
Private?Const?OPEN_EXISTING?=?3
Private?Const?OPEN_ALWAYS?=?4
Private?Const?TRUNCATE_EXISTING?=?5
Private?Const?FILE_ATTRIBUTE_NORMAL?=?H80
Private?Const?FILE_BEGIN?=?0
Private?Const?FILE_CURRENT?=?1
Private?Const?FILE_END?=?2
'==?Unicode?================================================
Private?Declare?Function?MultiByteToWideChar?Lib?"kernel32"?(ByVal?CodePage?As?Long,?ByVal?dwFlags?As?Long,?ByRef?lpMultiByteStr?As?Any,?ByVal?cchMultiByte?As?Long,?ByRef?lpWideCharStr?As?Any,?ByVal?cchWideChar?As?Long)?As?Long
Private?Declare?Function?WideCharToMultiByte?Lib?"kernel32"?(ByVal?CodePage?As?Long,?ByVal?dwFlags?As?Long,?ByRef?lpWideCharStr?As?Any,?ByVal?cchWideChar?As?Long,?ByRef?lpMultiByteStr?As?Any,?ByVal?cchMultiByte?As?Long,?ByRef?lpDefaultChar?As?Any,?ByVal?lpUsedDefaultChar?As?Long)?As?Long
Private?Const?CP_UTF8?As?Long?=?65001
#End?If
'###########################################################
'Unicode編碼格式
Public?Enum?UnicodeEncodeFormat
UEF_ANSI?=?0?'ANSI+DBCS
UEF_UTF8?'UTF-8
UEF_UTF16LE?'UTF-16LE
UEF_UTF16BE?'UTF-16BE
UEF_UTF32LE?'UTF-32LE
UEF_UTF32BE?'UTF-32BE
UEF_Auto?=?-1?'自動識別編碼
'隱藏項目
[_UEF_Min]?=?UEF_ANSI
[_UEF_Max]?=?UEF_UTF32BE
End?Enum
'ANSI+DBCS方式的文本所使用的代碼頁。默認(rèn)為0，表示使用系統(tǒng)當(dāng)前代碼頁?？梢岳迷搮?shù)實現(xiàn)讀取其他代碼編碼的文本，比如想在?簡體中文平臺下?讀取?繁體中文平臺生成的txt，就將它設(shè)為950
Public?UEFCodePage?As?Long
'判斷BOM
'返回值：BOM所占字節(jié)
'dwFirst：[in]文件最開始的4個字節(jié)
'fmt：[out]返回編碼類型
Public?Function?UEFCheckBOM(ByVal?dwFirst?As?Long,?ByRef?fmt?As?UnicodeEncodeFormat)?As?Long
If?dwFirst?=?HFEFF?Then
fmt?=?UEF_UTF32LE
UEFCheckBOM?=?4
ElseIf?dwFirst?=?HFFFE0000?Then
fmt?=?UEF_UTF32BE
UEFCheckBOM?=?4
ElseIf?(dwFirst?And?HFFFF)?=?HFEFF?Then
fmt?=?UEF_UTF16LE
UEFCheckBOM?=?2
ElseIf?(dwFirst?And?HFFFF)?=?HFFFE?Then
fmt?=?UEF_UTF16BE
UEFCheckBOM?=?2
ElseIf?(dwFirst?And?HFFFFFF)?=?HBFBBEF?Then
fmt?=?UEF_UTF8
UEFCheckBOM?=?3
Else
fmt?=?UEF_ANSI
UEFCheckBOM?=?0
End?If
End?Function
'生成BOM
'返回值：BOM所占字節(jié)
'fmt：[in]編碼類型
'dwFirst：[out]文件最開始的4個字節(jié)
Public?Function?UEFMakeBOM(ByVal?fmt?As?UnicodeEncodeFormat,?ByRef?dwFirst?As?Long)?As?Long
Select?Case?fmt
Case?UEF_UTF8
dwFirst?=?HBFBBEF
UEFMakeBOM?=?3
Case?UEF_UTF16LE
dwFirst?=?HFEFF
UEFMakeBOM?=?2
Case?UEF_UTF16BE
dwFirst?=?HFFFE
UEFMakeBOM?=?2
Case?UEF_UTF32LE
dwFirst?=?HFEFF
UEFMakeBOM?=?4
Case?UEF_UTF32BE
dwFirst?=?HFFFE0000
UEFMakeBOM?=?4
Case?Else
dwFirst?=?0
UEFMakeBOM?=?0
End?Select
End?Function
'判斷文本文件的編碼類型
'返回值：編碼類型。文件無法打開時，返回UEF_Auto
'FileName：文件名
Public?Function?UEFCheckTextFileFormat(ByVal?FileName?As?String)?As?UnicodeEncodeFormat
Dim?hFile?As?Long
Dim?dwFirst?As?Long
Dim?nNumRead?As?Long
'打開文件
hFile?=?CreateFile(FileName,?GENERIC_READ,?FILE_SHARE_READ?Or?FILE_SHARE_WRITE,?ByVal?0,?OPEN_EXISTING,?FILE_ATTRIBUTE_NORMAL,?ByVal?0)
If?INVALID_HANDLE_VALUE?=?hFile?Then?'文件無法打開
UEFCheckTextFileFormat?=?UEF_Auto
Exit?Function
End?If
'判斷BOM
dwFirst?=?0
Call?ReadFile(hFile,?dwFirst,?4,?nNumRead,?ByVal?0)
nNumRead?=?UEFCheckBOM(dwFirst,?UEFCheckTextFileFormat)
'Debug.Print?nNumRead
'關(guān)閉文件
Call?CloseHandle(hFile)
End?Function
'讀取文本文件
'返回值：讀取的文本。返回vbNullString表示文件無法打開
'FileName：[in]文件名
'fmt：[in,out]使用何種文本編碼格式來讀取文本。為UEF_Auto時表示自動判斷，且在fmt參數(shù)返回文本所用編碼格式
Public?Function?UEFLoadTextFile(ByVal?FileName?As?String,?Optional?ByRef?fmt?As?UnicodeEncodeFormat?=?UEF_Auto)?As?String
Dim?hFile?As?Long
Dim?nFileSize?As?Long
Dim?nNumRead?As?Long
Dim?dwFirst?As?Long
Dim?CurFmt?As?UnicodeEncodeFormat
Dim?cbBOM?As?Long
Dim?cbTextData?As?Long
Dim?CurCP?As?Long
Dim?byBuf()?As?Byte
Dim?cchStr?As?Long
Dim?I?As?Long
Dim?byTemp?As?Byte
'判斷fmt范圍
If?fmt??UEF_Auto?Then
If?fmt??[_UEF_Min]?Or?fmt??[_UEF_Max]?Then
GoTo?FunEnd
End?If
End?If
'打開文件
hFile?=?CreateFile(FileName,?GENERIC_READ,?FILE_SHARE_READ?Or?FILE_SHARE_WRITE,?ByVal?0,?OPEN_EXISTING,?FILE_ATTRIBUTE_NORMAL,?ByVal?0)
If?INVALID_HANDLE_VALUE?=?hFile?Then?'文件無法打開
GoTo?FunEnd
End?If
'判斷文件大小
nFileSize?=?GetFileSize(hFile,?nNumRead)
If?nNumRead??0?Then?'超過4GB
GoTo?FreeHandle
End?If
If?nFileSize??0?Then?'超過2GB
GoTo?FreeHandle
End?If
'判斷BOM
dwFirst?=?0
Call?ReadFile(hFile,?dwFirst,?4,?nNumRead,?ByVal?0)
cbBOM?=?UEFCheckBOM(dwFirst,?CurFmt)
'恢復(fù)文件指針
If?fmt?=?UEF_Auto?Then?'自動判斷
fmt?=?CurFmt
'cbBOM?=?cbBOM
Else?'手動設(shè)置編碼
If?fmt?=?CurFmt?Then?'若編碼相同，則忽略BOM標(biāo)記
'cbBOM?=?cbBOM
Else?'編碼不同，那么都是數(shù)據(jù)
cbBOM?=?0
End?If
End?If
Call?SetFilePointer(hFile,?cbBOM,?ByVal?0,?FILE_BEGIN)
cbTextData?=?nFileSize?-?cbBOM
'讀取數(shù)據(jù)
UEFLoadTextFile?=?""
Select?Case?fmt
Case?UEF_ANSI,?UEF_UTF8
'判斷應(yīng)使用的CodePage
CurCP?=?IIf(fmt?=?UEF_UTF8,?CP_UTF8,?UEFCodePage)
對Graphics做世界坐標(biāo)變換
Dim g As Graphics=PicutreBox1.GreateGraphics
g.TranslateTransform(PictureBox1.Width/2, PictureBox1.Height/2)
給個思路。
一、Entity Framework （EF）
引用了EF后，在EF 的datacontext將你的access數(shù)據(jù)庫配置上。你的增刪改查等都需要你在業(yè)務(wù)中去定義。
datagridview控件是Winform里面的吧，你只要在數(shù)據(jù)庫定義的時候每條數(shù)據(jù)都有一個遞增的ID，然后你顯示數(shù)據(jù)的時候順序使用ID desc就行了。
二、 ADO.net
做個Accesshelper類，使用connetion,command,reader等對象對Access數(shù)據(jù)庫進行各類操作。
這個我是這么實現(xiàn)的.要用到
Excel.Application
Set xlapp = CreateObject("Excel.Application") '激活EXCEL
xlapp.Visible = True '讓EXCEL可見
Set xlbook = xlapp.Workbooks.Open(App.Path + "個人簡歷.xlt")
'打開工作簿，strDestination為一個EXCEL報表文件
Set xlsheet = xlbook.Worksheets(1) '設(shè)定工作表
這個有點像是vb6的、vb.net也有相應(yīng)的方法的.總之是
excel.application 用到這個就可以了.必要的話導(dǎo)入excel的dll文件.
這樣你就發(fā)現(xiàn)、可以用vb.net來對excel來操作.你可以查下微軟的msdn、有具體的屬性方法.
如:
Dim ef As New Excel.Application
Dim es As New Excel.Worksheet
Dim er As Excel.Range
ef.Workbooks.Add()
es = ef.Worksheets("sheet1")
es.Activate()
er = es.Range("a1:C1")
er.Select()
er.Merge()
er.Value = "gordon1117" ef.Visible = True 目前應(yīng)用了三個對象:application,worksheet和range,三者的關(guān)系應(yīng)該清晰,做到這點就能從基本開始做了:)格式設(shè)置都在range對象,只不過在設(shè)置對齊屬性上是verticalalignment和horizon
range 用來定位、
然后你可以循環(huán)把數(shù)據(jù)輸出到指定了格式的excel文件里了吧、其實連格式都是可以程序控制的好好學(xué)下吧.
可以參考一下這篇文章
重慶分公司
重慶分公司
