Cara Membuat Admin Finder Login Di Visual Basic 6

oke kali ini saya akan membagikan Cara Membuat Admin Finder Login Di Visual Basic 6,
menurut saya membuat admin finder sangat lah mudah dan bagi saya sangat bermanfaat sekali

oke langsung saja kita ke cara nya dan jangan lupa jika belum punya Visual Basic 6 silakan download di google

• Buka visual Basic 6 dan buka project baru dan tambahkan komponen ini di bawah ini di dalam formnya

1. 2 buat textbox dengan Nama : txtwebapp dan txtURLAdmin
2. 2 buat Commandbutton dengan Nama : txtchange dan cmdSearchAdmin
3. 2 buah listbox dengan Nama : IstPattern dan IstResultAdmin
4. 2 buat label dengan Nama : lblinfoadmin dan lblstatadmin

lalu tambahkan komponen "Microsoft Internet Transfer Protokol 6.0" dengan cara tekan  tombol CRTL + T jika sudah dapat, silakan klick apply lalu ok dan icon baru akan muncul di kolom toolbox klick icon tersebut nambahkan komponen ke dalam form

Beri komponen itu nama : Inetadmin

nah persiapan pada form sudah selesai,silakan bikin folder bernama Admin Finder di Windows Explorer dan silakan save Form nya di Folder bernama Admin Finder dan sekarang kita membuat admin list nya terlebih dahulu
dan di dalam Folder Admin Finder buatlah folder lagi bernama data

• Buka notepad dengan cara tekan tombol Windows + R dan tulis notepad
• Jika sudah silakan copy di bawah ini dan pastekan di notepad

admin.-HN-
login.htm
login.html
login/
login.-HN-
adm/
admin/
admin/account.html
admin/login.html
admin/login.htm
admin/home.-HN-
admin/controlpanel.html
admin/controlpanel.htm
admin/cp.-HN-
admin/adminLogin.html
admin/adminLogin.htm
admin/admin_login.-HN-
admin/controlpanel.-HN-
admin/admin-login.-HN-
admin-login.-HN-
admin/account.-HN-
admin/admin.-HN-
admin.htm
admin.html
adminitem/
adminitem.-HN-
adminitems/
adminitems.-HN-
administrator/
administrator/login.-HN-
administrator.-HN-
administration/
administration.-HN-
adminLogin/
adminlogin.-HN-
admin_area/admin.-HN-
admin_area/
admin_area/login.-HN-
manager/
manager.-HN-
letmein/
letmein.-HN-
superuser/
superuser.-HN-
access/
access.-HN-
sysadm/
sysadm.-HN-
superman/
supervisor/
panel.-HN-
control/
control.-HN-
member/
member.-HN-
members/
members.-HN-
user/
user.-HN-
cp/
uvpanel/
manage/
manage.-HN-
management/
management.-HN-
signin/
signin.-HN-
log-in/
log-in.-HN-
log_in/
log_in.-HN-
sign_in/
sign_in.-HN-
sign-in/
sign-in.-HN-
users/
users.-HN-
accounts/
accounts.-HN-
wp-login.php
bb-admin/login.-HN-
bb-admin/admin.-HN-
bb-admin/admin.html
administrator/account.-HN-
relogin.htm
relogin.html
check.-HN-
relogin.-HN-
blog/wp-login.-HN-
user/admin.-HN-
users/admin.-HN-
registration/
processlogin.-HN-
checklogin.-HN-
checkuser.-HN-
checkadmin.-HN-
isadmin.-HN-
authenticate.-HN-
authentication.-HN-
auth.-HN-
authuser.-HN-
authadmin.-HN-
cp.-HN-
modelsearch/login.-HN-
moderator.-HN-
moderator/
controlpanel/
controlpanel.-HN-
admincontrol.-HN-
adminpanel.-HN-
fileadmin/
fileadmin.-HN-
sysadmin.-HN-
admin1.-HN-
admin1.html
admin1.htm
admin2.-HN-
admin2.html
yonetim.-HN-
yonetim.html
yonetici.-HN-
yonetici.html
phpmyadmin/
myadmin/
ur-admin.-HN-
ur-admin/
Server.-HN-
Server/
wp-admin/
administr8.-HN-
administr8/
webadmin/
webadmin.-HN-
administratie/
admins/
admins.-HN-
administrivia/
Database_Administration/
useradmin/
sysadmins/
admin1/
system-administration/
administrators/
pgadmin/
directadmin/
staradmin/
ServerAdministrator/
SysAdmin/
administer/
LiveUser_Admin/
sys-admin/
typo3/
panel/
cpanel/
cpanel_file/
platz_login/
rcLogin/
blogindex/
formslogin/
autologin/
support_login/
meta_login/
manuallogin/
simpleLogin/
loginflat/
utility_login/
showlogin/
memlogin/
login-redirect/
sub-login/
wp-login/
login1/
dir-login/
login_db/
xlogin/
smblogin/
customer_login/
UserLogin/
login-us/
acct_login/
bigadmin/
project-admins/
phppgadmin/
pureadmin/
sql-admin/
radmind/
openvpnadmin/
wizmysqladmin/
vadmind/
ezsqliteadmin/
hpwebjetadmin/
newsadmin/
adminpro/
Lotus_Domino_Admin/
bbadmin/
vmailadmin/
Indy_admin/
ccp14admin/
irc-macadmin/
banneradmin/
sshadmin/
phpldapadmin/
macadmin/
administratoraccounts/
admin4_account/
admin4_colon/
radmind-1/
Super-Admin/
AdminTools/
cmsadmin/
SysAdmin2/
globes_admin/
cadmins/
phpSQLiteAdmin/
navSiteAdmin/
server_admin_small/
logo_sysadmin/
power_user/
system_administration/
ss_vms_admin_sm/
bb-admin/
panel-administracion/
instadmin/
memberadmin/
administratorlogin/
adm.-HN-
admin_login.-HN-
panel-administracion/login.-HN-
pages/admin/admin-login.-HN-
pages/admin/
acceso.-HN-
admincp/login.-HN-
admincp/
adminarea/
admincontrol/
affiliate.-HN-
adm_auth.-HN-
memberadmin.-HN-
administratorlogin.-HN-
modules/admin/
administrators.-HN-
siteadmin/
siteadmin.-HN-
adminsite/
kpanel/
vorod/
vorod.-HN-
vorud/
vorud.-HN-
adminpanel/
PSUser/
secure/
webmaster/
webmaster.-HN-
autologin.-HN-
userlogin.-HN-
admin_area.-HN-
cmsadmin.-HN-
security/
usr/
root/
secret/
admin/login.-HN-
admin/adminLogin.-HN-
moderator.php
moderator.html
moderator/login.-HN-
moderator/admin.-HN-
yonetici.-HN-
0admin/
0manager/
aadmin/
cgi-bin/login.-HN-
login1-HN-
login_admin/
login_admin.-HN-
login_out/
login_out.-HN-
login_user.-HN-
loginerror/
loginok/
loginsave/
loginsuper/
loginsuper.-HN-
login-HN-
logout/
logout-HN-
secrets/
super1/
super1.-HN-
super_index.-HN-
super_login.-HN-
supermanager.-HN-
superman.-HN-
superuser.-HN-
supervise/
supervise/Login.-HN-
super.-HN-

• dan save botepad nya dengan nama admin dengan type .hn save nya di Folder data di dalam folder Admin Finder

lah kenapa ekstensi belakang nya HN ??

biar gampang jika menganti webapp web nya untuk mencari halaman admin nya

Contoh:

.asp .php .html dll

• Buat 1 buat module dan beri nama : modList 

Isi dari module ini adalah fungsi untuk penanganan pada listbox nantinya.

Isi module itu dengan code di bawah ini

Option Explicit
Public Sub removelist(listbox As listbox)
Dim ListCount As Long
ListCount& = listbox.ListCount
Do While ListCount& > 0&
ListCount& = ListCount& - 1
If listbox.Selected(ListCount&) = True Then
listbox.RemoveItem (ListCount&)
End If
Loop
End Sub
Public Sub Loadlistbox(Directory As String, TheList As listbox)
    Dim newstring As String
    Dim MyString As String
    On Error Resume Next
    Open Directory$ For Input As #1
    While Not EOF(1)
        Input #1, newstring$
        If InStr(newstring$, "-HN-") Then
        newstring$ = Replace(newstring$, "-HN-", frmUtama.txtwebapp.Text)
        Else
        End If
        DoEvents
        TheList.AddItem newstring$
    Wend
    Close #1
End Sub

• Jika sudah silakan kalian masukan code di bawah ini di cmdSearchAdmin

'Coded by : mydisha a.k.a Dias Taufik Rahman
Dim admin As Integer
If Right(txtURLAdmin.Text, 1) = "/" Then
Else
MsgBox "URL Format : www.target.com/", vbCritical, "Error"
txtURLAdmin.SetFocus
Exit Sub
End If
cmdSearchAdmin.Enabled = False
txtchange.Enabled = False
lblstatadmin.Caption = "Working"
For admin = 0 To lstPattern.ListCount
If lstPattern.ListCount > 0 Then
lstPattern.Selected(0) = True
lblinfoadmin.Caption = txtURLAdmin.Text & lstPattern.List(0)
Call removelist(lstPattern)
CekAdmin
ElseIf lstPattern.ListCount = 0 Then
MsgBox "Done !", vbExclamation, HNC
lblstatadmin.Caption = "IDLE"
lblstatadmin.ForeColor = &H8000000F
Call Loadlistbox(App.Path & "\data\admin.hn", lstPattern)
cmdSearchAdmin.Enabled = True
txtchange.Enabled = True
lblinfoadmin.Caption = "-------"
 Else
MsgBox "No Target", vbExclamation, HNC
End If
Next

• Jika sudah silakan edit txtchange masukan code di bawah ini

lstPattern.Clear
If Dir$(App.Path & "/data/admin.hn") <> "" Then
txtchange.Enabled = False
cmdSearchAdmin.Enabled = False
Call Loadlistbox(App.Path & "/data/admin.hn", lstPattern)
txtchange.Enabled = True
cmdSearchAdmin.Enabled = True
Else
MsgBox "Failed load file = admin.hn , this function can't work without admin.hn file", vbExclamation, "Error"
End If 

• Jika sudah silakan klick kanan formnya / view code dan masukan code ini sembarang tempat

Sub cekadmin() ' <<<==== Penambahan perintah diatas.
Dim tusboladmin As String
On Error Resume Next
Inetadmin.URL = lblinfoadmin
tusboladmin = Inetadmin.OpenURL
lblstatadmin.Caption = "Checking"
'Fungsi pengecekan string
If InStr(tusboladmin, "Administrator") Or InStr(tusboladmin, "Web Administrator") Or InStr(tusboladmin, "User") Or InStr(tusboladmin, "user") Or InStr(tusboladmin, "Username") Or InStr(tusboladmin, "username") Or InStr(tusboladmin, "Login Admin") Or InStr(tusboladmin, "login admin") Or InStr(tusboladmin, "Password") Or InStr(tusboladmin, "password") Or InStr(tusboladmin, "Login") Or InStr(tusboladmin, "login") Or InStr(tusboladmin, "USERNAME") Or InStr(tusboladmin, "PASSWORD") Or InStr(tusboladmin, "SENHA") Or InStr(tusboladmin, "Senha") Or InStr(tusboladmin, "senha") Or InStr(tusboladmin, "Personal") Or InStr(tusboladmin, "PERSONAL") Or InStr(tusboladmin, "personal") Or InStr(tusboladmin, "Usuario") Or InStr(tusboladmin, "USUARIO") Or InStr(tusboladmin, "usuario") Or InStr(tusboladmin, "Clave") Or InStr(tusboladmin, "CLAVE") Or InStr(tusboladmin, "clave") Or InStr(tusboladmin, "Admin Login") Or InStr(tusboladmin, "Login Panel") Or InStr(tusboladmin, "Admin Panel") Or InStr(tusboladmin, "Admin User") Or InStr(tusboladmin, "Super") Or InStr(tusboladmin, "Administration") Or InStr(tusboladmin, "Admin Page") Or InStr(tusboladmin, "Welcome To Administration") Then
lblstatadmin.ForeColor = &HC000&
lblstatadmin.Caption = "Valid Page"
lstResultAdmin.AddItem lblinfoadmin
Else
lblstatadmin.ForeColor = &HFF&
lblstatadmin.Caption = "Invalid Page"
End If
End Sub ' <<<==== Penambahan perintah diatas.

Kunci kesuksesan ada di code di atas ini.

terlihat di sana ada fungsi Instr untuk mengecek string

• Yang terakhir masukan code di bawah ini di form loadnya

If Dir$(App.Path & "/data/admin.hn") <> "" And lstPattern.ListCount = 0 Then
Call Loadlistbox(App.Path & "/data/admin.hn", lstPattern)
Else
MsgBox "Failed load file = /data/admin.hn , this function can't work without admin.hn file,or admin.hn already loaded in list", vbExclamation, "Error"
End If

Sudah Selesai .....
Ohh iya ini dasar nya kelanjutan nya bisa kreatif masing"
dan software ini masih sangat sederhana dan penanganan error masih menggunakan On Error Resume Next..

Jika kalian masih merasa sangat binggung silakan berkommentar di bawah dan jika bermanfat silakan kalian share

Thanks :

https://goo.gl/uku3oQ

di dalam tutor ini saya sudah edit beberapa code untuk bisa mencari admin finder login dengan mudah

Jika kalian mau tambahkan admin list nya silakan kalian tambahkan -HN- di belakangnya dan jika malas untuk membikin nya silakan kalian download file nya di bawah ini dan file di bawah ini saya yang membuat nya

Download

Facebook

Twitter

whatsapp