接收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
標簽： Pop3Message Function Retrieve response
上傳時間： 2013-12-28
上傳用戶：fnhhs
武林DLL注入源碼 VB調用 Private Declare Function CallHotKey Lib "wulin.dll" (ByVal hWnd As Long, ByVal hotkey As Long) As Boolean Private Declare Function CallBase Lib "wulin.dll" (ByVal hWnd As Long, ByVal action As Long) As Boolean CallHotKey(窗體句柄,HotKey) HotKey ====0---------17 分別是0-----9 F1-----F8 CallBase(窗體句柄,Action) Action==0-------N 分別實現不同的功能 Action=0 選怪 函數反回值是 布爾值 ( 窗體句柄,Action 窗體句柄,HotKey 都為DWORD值)
標簽： ByVal CallHotKey Function Private
上傳時間： 2013-11-25
上傳用戶：maizezhen
//按柱面和磁道來讀取磁盤數據,要求 Public Function ReadDisk(ByVal Cylinders As Long, ByVal Tracks As Long, db() As Byte) As Boolean
標簽： ByVal Long Cylinders Function
上傳時間： 2014-01-13
上傳用戶：zxc23456789
Visual Basic 6.0可以通過調用API函數格式化一個磁盤，無論是軟盤還是硬盤。 打開一個新的項目(工程1) ，如果你沒有更改過缺省模式，那么Visual Basic 6.0會自動添加一個form1文件，在form1上添加一個命令控件，將下面的代碼拷入。 Option Explicit Private Declare Function SHFormatDrive Lib"shell32"( ByVal Hend AS Long,ByVal Drive AS Long,ByVal FormatID AS Long,ByVal Options AS Long) as Long Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean) dim lngReturn As Long if (blnQuickFormat) then lngReturn= SHFormatDrive(0,intDrive,0&,1&) else lngReturn= SHFormatDrive(0,intDrive,0&,0&) end if end Sub Private Sub Command1_Click() call FormatDisk(0,True) End Sub 運行此程序。 注意FormatDisk函數的第一個變量很重要，他的值是0,1,2時代表格式化的分別是：A、B、C盤。
上傳時間： 2015-10-05
上傳用戶：kytqcool
利用WM5 實現電話功能 在程序中進行電話撥號 “項目”—“添加引用”—“Microsoft.WindowsMobile.Telephony”—“確定” Imports Microsoft.WindowsMobile.Telephony Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim TestPhone As New Phone TestPhone.Talk("1001") End Sub
標簽： Microsoft WindowsMobile Telephony Imports
上傳時間： 2013-12-20
上傳用戶：hasan2015
用VB做QQ強制聊天器 用VB做QQ強制聊天器 大家好..我是愚罪..QQ：303931726 今天教大家來用VB做QQ強制聊天器..... 廢話不多說了``` 直接打開VB 新建一個EXE文件..新建一個Text和一個Command按紐 最后直接把代碼寫上去就可以了... Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub Command1_Click() ShellExecute 0, "open", "tencent://message/?uin=" + Text1.Text, "", "", 1 End Sub 可以了...生成試驗下..我就不美化了..你們可以去美化下``` 看。。成功了
上傳時間： 2014-01-19
上傳用戶：日光微瀾
