寫入模式為覆蓋會出現這個現象
創(chuàng)新互聯(lián)公司-專業(yè)網站定制、快速模板網站建設、高性價比饒陽網站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式饒陽網站制作公司更省心,省錢,快速模板網站建設找我們,業(yè)務覆蓋饒陽地區(qū)。費用合理售后完善,10年實體公司更值得信賴。
要使用添加模式
就會累加了
寫入:Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")
sr.WriteLine("寫入的內容") sr.Close()讀?。篒f (File.Exists(Application.StartupPath "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath "/讀取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine() (讀取文本到文本框)
Loop end if
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim f As New FileInfo("d:\doc.xml")
If f.Exists = False Then
f.Create()
f.Refresh()
End If
Dim s As String = ""
Dim sw As StreamWriter = f.CreateText()
s = "?xml version=""1.0"" encoding=""GB2312""?"
sw.WriteLine(s)
sw.WriteLine("doc")
sw.WriteLine(" assembly")
sw.WriteLine("userId34/userId")
sw.WriteLine("userName張三/userName")
sw.WriteLine("qxbz1/qxbz")
sw.WriteLine(" /assembly")
sw.WriteLine("/doc")
sw.Flush()
sw.Close()
Process.Start("d:\doc.xml")
End Sub
End Class
Imports System.Runtime.InteropServices
Public Class MemoryEditor
Inherits WINAPI.NativeMethods
Private phwnd As IntPtr
Private Buffer As Byte()
Private BytesRead As IntPtr
Private BytesWrite As IntPtr
''' summary創(chuàng)建內存編輯器/summary
''' param name="processHwnd"進程句柄/param
Sub New(processHwnd As IntPtr)
Me.phwnd = processHwnd
End Sub
''' summary根據指定偏移量讀取內存基址/summary
''' param name="addr"內存地址/param
''' param name="offsets"偏移量數組/param
Public Function ReadBaseAddress(addr As IntPtr, offsets() As Integer) As IntPtr
Dim address As IntPtr = ReadMemoryToInteger(addr)
For Each offset As Integer In offsets
address = address.ToInt32 + offset
address = ReadMemoryToInteger(address)
If address = IntPtr.Zero Then
Dim errInfo As String = "內存偏移量[" Hex(offset) "]錯誤!"
Throw New Exception(errInfo)
End If
Next
Return address
End Function
''' summary讀取4字節(jié)內存數值/summary
''' param name="addr"內存地址/param
Public Function ReadMemoryToInteger(addr As IntPtr) As Integer
Buffer = New Byte(3) {}
ReadProcessMemory(phwnd, addr, Buffer, 4, BytesRead)
Return BitConverter.ToInt32(Buffer, 0)
End Function
''' summary讀取4字節(jié)內存數組/summary
''' param name="addr"內存地址/param
Public Function ReadMemoryToBytes(addr As IntPtr) As Byte()
Buffer = New Byte(3) {}
ReadProcessMemory(phwnd, addr, Buffer, 4, BytesRead)
Return Buffer
End Function
''' summary將內存值數組寫入指定地址/summary
''' param name="addr"內存地址/param
''' param name="buffer"內存值數組/param
Public Function WriteMemoryByBytes(addr As IntPtr, buffer As Byte()) As Boolean
Return WriteProcessMemory(phwnd, addr, buffer, buffer.Length, BytesWrite)
End Function
End Class
Namespace WINAPI
Public MustInherit Class NativeMethods
DllImport("kernel32.dll", SetLastError:=True) _
Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, _
ByVal lpBaseAddress As IntPtr, _
Out() ByVal lpBuffer() As Byte, _
ByVal dwSize As Integer, _
ByRef lpBytesRead As Integer) As Boolean
End Function
DllImport("kernel32.dll", SetLastError:=True) _
Public Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, _
ByVal lpBaseAddress As IntPtr, _
ByVal lpBuffer As Byte(), _
ByVal nSize As Integer, _
Out() ByRef lpBytesWritten As IntPtr) As Boolean
End Function
End Class
End Namespace
是不是內存讀寫代碼有問題!用上面的代碼試試,我以前寫的;
調用方法:
Dim mem As New MemoryEditor(進程句柄)
Dim offsets As Integer() = {H1, H2, H3} '{一級基址,二級基址,三級基址}
Dim baseaddr As IntPtr = mem.ReadBaseAddress(內存地址, offsets)
Dim value As Integer = mem.ReadMemoryToInteger(baseaddr)
1、首先,你得做一個oledbconnection對象,這個對象有個連接字符串的屬性,你需要設置
2、做一個oledbcommand對象,這個對象有個操作字符串(SQL語句)需要設置
3、打開oledbconnection對象
4、執(zhí)行oledbcommand對象
5、關閉oledbconnection對象
程序結束,希望對你有幫助
使用.net下的system.sql.sqlclint類庫下的sqlconnent;sqlcommand類進行寫入操作
網站名稱:vb.net寫入,VBNET是干嘛的
瀏覽地址:http://vcdvsql.cn/article16/dsiejdg.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供自適應網站、靜態(tài)網站、域名注冊、網站改版、定制網站、響應式網站
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)