接收pop3
Public Function Retrieve(ByVal rhs As Pop3Message) As Pop3Message
Dim message, response As String
Dim msg As New Pop3Message
msg.bytes = rhs.bytes
msg.number = rhs.number
message = "RETR " + rhs.number.ToString + vbCrLf
write(message)
response = Respond()
If response.Substring(0, 3) <> "+OK" Then
Throw New Pop3Exception(response)
End If
msgbox(msg)
msg.retrieved = True
While (1 = 1)
response = Respond()
If response = "." + vbCrLf Then
Exit While
Else
msg.message += response
End If
End While
Return msg
End Function
DLL注入，就把什么枚舉進程、查找窗口和進程特權設置那西東西省了。
附件中帶了一個testDll.dll，是我寫的一個測試DLL，因為一般的DLL注入進去了可能沒反應，所以在我寫了個DLL，在里面加了MessageBox，可以彈出來，這樣就知道DLL運行沒有。DLL是VC++寫的，因為我用的是VB迷你版，只能寫ActiveX DLL，而這種DLL不能用來注入（我寫了個，在Main函數里寫了個msgbox，啟動對象設為 Sub Main，發現可以注入，但沒有msgbox出現），如果誰要DLL源碼就回貼說，我發上來。
