PasangIklanoketrik PasangIklanoketrik PasangIklanoketrik PasangIklanoketrik PasangIklanoketrik
Tampilkan postingan dengan label Membuat Injector PB. Tampilkan semua postingan
Tampilkan postingan dengan label Membuat Injector PB. Tampilkan semua postingan

Senin, 19 September 2011

[Tutorial] Membuat Animasi Bergerak/ GIF Pada Form with VB6



Buka VB6nya dolo , Ikuti Tutorial Berikut : 1.Download File Ini : LExus_stars

2.Klik Tab Component , Arahkan Ke File Yang Di Download Tdi .

3.Klik 2 Kali GifViewer tdi , Maka Muncul Kotak .

4.Pada Tab Propeties Pilih Gambar Bergerak Yang Mau Dimasukkan .

5.Coba Run Project Mu , Tadaaaa .. Bergerak Kan.

6.Jika Mau Lebih Sempurna Hilangkan tepian Form

Tutorial:
  • - Buat lah Gambar Yang Ingin Di pakai Di injectornya bagian Blakang Bacground Trasparant Menggunakan Photoshop atau Yang Lain !
  • -Ingat Buat BackColor Form Mu Terisi Warna Apa Saja Kecuali Hitam Dan Putih .
  • -Buat Border Stylenya : 0-None
  • -Caranya Liat Di Propeties Form , Ada tulisan BackColor : Isi Dengan Warna Apa Saja Kecual Hitam Dan Putih
  • -Liat SS berikut:

Silahkan Buat 1 Module .
Private Declare Function  GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As  Long, ByVal nIndex As Long) As Long
Private Declare Function  SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As  Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private  Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd  As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As  Long) As Long
Sub SetTransparency(piHwnd As Long, piColor As OLE_COLOR)
    Const G_E = &HFFEC
    Const W_E = &H80000
    Const  LW_KEY = &H1
    SetWindowLong piHwnd, G_E, GetWindowLong(piHwnd,  G_E) Or W_E
    SetLayeredWindowAttributes piHwnd, piColor, 0,  LW_KEYEnd Sub
Dan Isi Code Berikut Di Form Mu :
Private Sub Form_Initialize()
    Call SetTransparency(Me.hwnd, Me.BackColor)
End Sub
 
Jika kurang JElas ... Bisa tanya ke saya . ::: FAceBook
pb-indonesia 02.11 0 komentar

Membuat Injector + Mengganti Skin Baground-nya



Untuk FORM 1
pembuatanya cukup simple kok.... sediakan saja

Komponentnya :

  • buat 2 form dengan nama form1 dan form2
  • buat 5 command button, masing2 beri nama : command1,command2,cmdInjector,cmdExecute,cmdTerminate.
  • untuk cmdInjector beri nama caption "Select DLL For Inject" tanpa tanda kutip
  • untuk cmdExecute beri nama caption "Resume".
  • untuk cmdTerminate beri nama caption "Terminate"
  • buat timer pada form, masing2 beri nama : timer1 dan timer2
 Dowload SC


Untuk FORM 2
beri komponent-komponent-nya

  • - 3 Command Button
  • [*] Command1 beri Name : cmdsave lalu beri Caption : Save
  • [*] Command2 beri Name : cmdimg lalu beri Caption : Browse
  • [*] Command3 beri Name : cmdClose lalu beri Caption : Close
  • - 1 Textbox
  • - 1 Commond DIalog
Posted Image
lalu masukan source pada form2

Code :::
'tutorial injector with
'change menu skin'By Hades The God Of Underworld
'Dedicated to Blazetorm & N3'Hades Always ganteng

Private Sub cmdclose_Click()
On Error GoTo fileerror
Input #1, imag
Close #1
FileName = GetSetting(App.Title, "setting", "imag")
Form1.Picture = LoadPicture(imag)
form2.Text1.Text = imag
fileerror:
Me.Hide
End Sub

Private Sub cmdimg_Click()
On Error GoTo Cancel
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
imag = Text1.Text
Form1.Picture = LoadPicture(imag)
Cancel:
End Sub

Private Sub cmdsave_Click()
Print #1, Text1.Text
Close #1
End Sub

'Created by Hades@Blazetorm.Net
'Special Thx to
'All People who make me crazzy !

pb-indonesia 02.02 0 komentar

 Credit : SaptaAgung N2
Buat sebuah form baru dengan nama : "frmLogin"
Form utama / injector yg agan maksud ubah nama nya menjadi "frmMain"
Pada "frmLogin" tambahkan komponen ,sbb:
  • - Label dengan caption "&Password"
  • - TextBox dengan nama "txtUserName" dan caption nya di kosongkan
  • - CommandButton dengan nama "cmdLogin" dan caption "Login"
  • - CommandButton dengan nama "cmdCancel" dan caption "Cancel"
  • - Untuk accesories dan tampilan design silahkan berkreasi masing2
  • - Kemudian isikan code berikut pada "frmLogin"
Ini SC nya . :::
Option Explicit
Dim hitung As Byte
Private Sub cmdLogin_Click()
If Trim(txtUserName.Text) = vbNullString And Trim(txtPassword.Text) = vbNullString Then
GoSub hitungLog
MsgBox "Upss... Password nya masih kosong bro !!" + vbCrLf + "Tolong di benerin", _
vbInformation, "Konfirmasi"
txtUserName.SetFocus
ElseIf Trim(txtUserName.Text) = vbNullString Then
GoSub hitungLog
MsgBox "Upss... Password nya masih kosong bro !!" + vbCrLf + "Tolong di benerin", _
vbInformation, "Konfirmasi"
txtUserName.SetFocus
ElseIf Trim(txtUserName.Text) = "Nstars.Net" Then
frmMain.Show
Unload MeElse
GoSub hitungLog
txtUserName = vbNullString
txtPassword = vbNullString
txtUserName.SetFocus
MsgBox "upss... maaf password nya salah bro !!" + vbCrLf + "Coba Di Benarkan !!", vbExclamation, "Informasi"
End If
Exit Sub
hitungLog:
hitung = hitung + 1
If hitung = 3 Then
MsgBox "Duh kacian dari tadi salah mulu .. dah lah gw kasih tau password nya " + vbCrLf + "Password nya : Nstars.Net", vbExclamation, "Informasi"
Unload MeElse
Return
End If
End Sub

Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmd1_click()
frmAbout.Show 1 'misalnya  adalah about tutorEnd Sub
 
 
Silahkan Edit2 code diatas ^^

- Setelah selesai ,, ikuti langkah berikut :
* klik menu project , - ###Properties ,-pada "StartUpObject" pilih "frmLogin" ,-OK
* Project selesai , tinggal save project dan COMPILE KE EXE (Make EXE)

Posted Image

.:::::::::::::THX:::::::::::.
pb-indonesia 01.40 0 komentar

membuat Injector Point Blank

  

kalo ada yang ngak Punyak Bahanya Ni ane punya

  1. Visual Basic 6.0 portable
  2.  SC
pb-indonesia 01.32 0 komentar
Langganan: Postingan (Atom)