自動註冊填寫

WebBrowser1.Document.getElementById("網頁源素").Value = Text1.Text '輸入的'
WebBrowser1.Document.getElementById(" 網頁源素 ").Click   '打勾的'
WebBrowser1.Navigate ("http://www.***.****.COM") '網頁的


'

防止程式多開源碼

Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Const ERROR_ALREADY_EXISTS = 183&


   Private Sub Form_Load()
Dim sa As SECURITY_ATTRIBUTES
sa.bInheritHandle = 1
sa.lpSecurityDescriptor = 0
sa.nLength = Len(sa)
Call CreateMutex(sa, 1, App.Title)
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
  MsgBox "輸入你要打的字", 0 + 64, " 輸入你要打的字 "
Unload Me
End If
End Sub

視窗半透明

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long



Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Private Function TranslucentForm(frmhwnd As Long, TranslucenceLevel As Byte) As Boolean

SetWindowLong frmhwnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes frmhwnd, 0, TranslucenceLevel, LWA_ALPHA
TranslucentForm = Err.LastDllError = 0
End Function




Private Sub Form_Load()
TranslucentForm Me.hwnd, 200 '最高255 0則完全透明'
End Sub

Microsoft Visual Basic 6.0 完整繁體中文版

Microsoft Visual Basic 6.0　完整繁體中文版
檔案説大也不大啦，

說它小也不怎麼小，

因為它分成八等份，

要完全載完可能約5分~7分吧，

共有8個分割檔 。
 vb6[1].part01.rar
 vb6[1].part02.rar
 vb6[1].part03.rar
 vb6[1].part04.rar
 vb6[1].part05.rar
 vb6[1].part06.rar
 vb6[1].part07.rar
 vb6[1].part08.rar

每個檔案約分成4.8KB。

就我們來前往下載去吧 Go Go Go!!!




下載前往

Camtasia Studio 7.1 (7z)

Camtasia Studio  是一個錄影程式

範圍可以自行的調整！


下載完裡面有 !)CamtasiaStudioPorable  點擊它 安裝註冊　即可！


啟動程序　CamtasiaStudio　　建議記憶體２Ｇ以上否則再錄時會Lag．


左上腳　Recird the screen　單擊後即可拍片　錄想錄的東西！


遊戲 or 資訊



下載   綠色版

視窗置頂

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_NOTOPMOST = -2


----------------------
置頂
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

取消置頂
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE