关于efvb.net的信息

电脑高手进！帮我分析一下系统诊断日志

250 - 未知模块：c:\WINDOWS\resources\windowblinds\wblind.dll

专注于为中小企业提供成都网站设计、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业坡头免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了近千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

251 - 未知模块：c:\工具软件区\新QQ\Tencent\MSIMG32.dll

252 - 未知模块：c:\WINDOWS\resources\windowblinds\wbhelp.dll

253 - 未知模块：c:\工具软件区\新QQ\Tencent\FinePlus.dll

254 未知进程：c:\工具软件区\ftcleaner.exe 命令行: C:\工具软件区\FTCleaner.exe

255 - 未知模块：c:\工具软件区\MSVBVM60.DLL

256 - 未知模块：c:\工具软件区\VB6CHS.DLL

257 - 未知模块：c:\WINDOWS\resources\windowblinds\wblind.dll

258 - 未知模块：c:\WINDOWS\resources\windowblinds\wbhelp.dll

259 - 未知模块：c:\WINDOWS\system32\SogouPy.ime

260 - 未知模块：c:\工具软件区\搜狗\sogouinput\Plugin\sgimeword.dll

261 - 未知模块：c:\工具软件区\ftcapi.dll

262 - 未知模块：c:\工具软件区\ftcapi3.dll

263 - 未知模块：c:\工具软件区\ftcapi2.dll

264 - 未知模块：c:\WINDOWS\system32\tcpipdog0.dll

265 未知进程：c:\工具软件区\fyganalyze.exe 命令行: C:\工具软件区\FygAnalyze.exe

266 - 未知模块：c:\WINDOWS\resources\windowblinds\wblind.dll

267 - 未知模块：c:\WINDOWS\resources\windowblinds\wbhelp.dll

268 - 未知模块：c:\WINDOWS\system32\SogouPy.ime

269 - 未知模块：c:\工具软件区\搜狗\sogouinput\Plugin\sgimeword.dll

270 - 未知模块：c:\工具软件区\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:\工具软件区\360安全卫士\360safe\AntiArp\AntiArp.exe /start

279 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]

Windows木马防火墙C:\工具软件区\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]

导出到 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:\工具软件区\新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:\工具软件区\新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

网络服务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

系统服务信息：

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:\工具软件区\新建文件夹\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

系统驱动信息：

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:\工具软件区\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

已经加载的驱动信息：

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

vb.net 调用C语言可执行程序并传值？

在c语言中每一个变量都有两个属性一个是值，一个是址。比如inta=2;变量a的值是2，变量a的地址，可以用取地址

操作符

获取，即a。因此以C语言的函数传递中具备两种方式传递参数，一种是传址，一种传值。比如voidf1(intv){;}//函数f1v

VB.NET如何获取任何格式文件的文字信息

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这几种编码文本

'## 编译预处理常数 #########################################

'== 全局常数 ===============================================

'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方式的文本所使用的代码页。默认为0，表示使用系统当前代码页。可以利用该参数实现读取其他代码编码的文本，比如想在 简体中文平台下 读取 繁体中文平台生成的txt，就将它设为950

Public UEFCodePage As Long

'判断BOM

'返回值：BOM所占字节

'dwFirst：[in]文件最开始的4个字节

'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所占字节

'fmt：[in]编码类型

'dwFirst：[out]文件最开始的4个字节

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

'关闭文件

Call CloseHandle(hFile)

End Function

'读取文本文件

'返回值：读取的文本。返回vbNullString表示文件无法打开

'FileName：[in]文件名

'fmt：[in,out]使用何种文本编码格式来读取文本。为UEF_Auto时表示自动判断，且在fmt参数返回文本所用编码格式

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)

'恢复文件指针

If fmt = UEF_Auto Then '自动判断

fmt = CurFmt

'cbBOM = cbBOM

Else '手动设置编码

If fmt = CurFmt Then '若编码相同，则忽略BOM标记

'cbBOM = cbBOM

Else '编码不同，那么都是数据

cbBOM = 0

End If

End If

Call SetFilePointer(hFile, cbBOM, ByVal 0, FILE_BEGIN)

cbTextData = nFileSize - cbBOM

'读取数据

UEFLoadTextFile = ""

Select Case fmt

Case UEF_ANSI, UEF_UTF8

'判断应使用的CodePage

CurCP = IIf(fmt = UEF_UTF8, CP_UTF8, UEFCodePage)

VB.NET如何调用VB6.0的控件

对Graphics做世界坐标变换

Dim g As Graphics=PicutreBox1.GreateGraphics

g.TranslateTransform(PictureBox1.Width/2, PictureBox1.Height/2)

VB.net怎么添加数据至ACCESS数据库中，并显示在DataGridview控件的第一行（注意：不是最后一行）。

给个思路。

一、Entity Framework （EF）

引用了EF后，在EF 的datacontext将你的access数据库配置上。你的增删改查等都需要你在业务中去定义。

datagridview控件是Winform里面的吧，你只要在数据库定义的时候每条数据都有一个递增的ID，然后你显示数据的时候顺序使用ID desc就行了。

二、 ADO.net

做个Accesshelper类，使用connetion,command,reader等对象对Access数据库进行各类操作。

请问高手：如何在VB.NET中实现把SQL数据库里表的数据导入到Excel中？谢谢！

这个我是这么实现的.要用到

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) '设定工作表

这个有点像是vb6的、vb.net也有相应的方法的.总之是

excel.application 用到这个就可以了.必要的话导入excel的dll文件.

这样你就发现、可以用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 目前应用了三个对象:application,worksheet和range,三者的关系应该清晰,做到这点就能从基本开始做了:)格式设置都在range对象,只不过在设置对齐属性上是verticalalignment和horizon

range 用来定位、

然后你可以循环把数据输出到指定了格式的excel文件里了吧、其实连格式都是可以程序控制的好好学下吧.

可以参考一下这篇文章