ingin menyelesaikan tugas proposal anda,,,
saya punya 1 proposal tentang porseni,,
tinggal download , edit , print
dan tugas anda selesai,..
good luck
XxX
Minggu, 10 Februari 2013
Selasa, 24 Juli 2012
cara meningkatkan kecepatan internet modem anda
salah satu cara nya adalah dengan membeli paket internet paling mahal yang modem/ kartu anda tawarkan,...
itu salah satu caranya,,
masih ada cara yang lain dengan merubah sedikit program/ data pada windows anda
lihat keterangannya di sini
itu salah satu caranya,,
masih ada cara yang lain dengan merubah sedikit program/ data pada windows anda
lihat keterangannya di sini
video downloader
pusing bagaimana cara mendownload video dari you tube, facebook, redtube, DLL
nah, saya punya app nya nih,,
gak percuma jalan jalan di website orang,, uda dapet teman baru,, ee dapat ilmu lagii,,
udalah gk usah panjang lebar curhat nya,,
langsung aja download di website nya
freemake
semoga bermanfaat,..
nah, saya punya app nya nih,,
gak percuma jalan jalan di website orang,, uda dapet teman baru,, ee dapat ilmu lagii,,
udalah gk usah panjang lebar curhat nya,,
langsung aja download di website nya
freemake
semoga bermanfaat,..
Rabu, 13 Juni 2012
visual basic
download aja bagi yang bisa buat cheat
buka program Visual Basic
-Pilih aja Standard EXE
-Dua buah Timer
-Buat Lima Command
command1 Dan Command2 captionnya Terserah anda Contoh (Full Hack Atau Minimize)
Command3 Beri Caption Terminate, nama = cmdterminate
Command4 bari caption Resume , Nama = cmdExecute
Command5 beri Caption Select Dll For Inject , Nama = Cmdinjector
' ali-kubur Simple Injector Created By >ali-kubur@blogspot.Com
Private resmue As String
Private winHwnd As Long
Private bSuspend As Boolean
Private Sub cmdExecute_Click()
resmue = "yes"
Unload Me
End Sub
Private Sub cmdInjector_Click()
On Error GoTo errLine
If Not cmdinjector.Caption = "Inject Now" Then
Dim theTemp As String
theTemp = OpenDialog(Me, "DLL files (*.dll)|*.dll", "Select DLL File For Inject...", App.Path)
If Trim$(theTemp) <> "" Then
If Dir$(theTemp) <> "" Then
sFlDLL = theTemp
cmdinjector.Caption = "Inject Now"
Else
sFlDLL = "None"
cmdinjector.Caption = "Select DLL For Inject"
End If
End If
Else
If sFlDLL = "None" Then
MsgBox "You can't Injector execute", 48, "Error Injector"
Exit Sub
Else
InjectExecute sFlDLL
sFlDLL = "None"
cmdinjector.Caption = "Select DLL For Inject"
End If
End If
Exit Sub
errLine:
MsgBox "File tidak respon atau tidak support", 48, "Error"
End Sub
Private Sub cmdTerminate_Click()
resmue = "yes"
On Error Resume Next
Dim lExitCode As Long
If MsgBox("Terminate Hackshield sekarang?", _
vbYesNo + vbExclamation, "Terminate Proses") = vbYes Then
lExitCode = TerminateTargetOne
If lExitCode = 0 Then
MsgBox "Proses terminate gagal.", _
vbExclamation, "Terminate info"
cmdterminate.Enabled = False
Else
lExitCode = TerminateTargetTwo
If lExitCode = 0 Then
MsgBox "Proses terminate sukses.", _
vbExclamation, "Terminate info"
Else
Unload Me
End If
End If
End If
End Sub
Private Sub Command1_Click()
InjectExecute App.Path & "" & "ali-kubur.dll" '< FileTarget = "PointBlank.exe" Timer1.Interval = 20 End Sub Private Sub Command2_Click() InjectExecute App.Path & "" & "ali-kubur2.dll" '< FileTarget = "PointBlank.exe" Timer1.Interval = 20 End Sub Private Sub Form_Load() bSuspend = False Timer2.Interval = 20 Timer2.Enabled = True FileTargetOne = "PointBlank.exe" FileTargetTwo = "HSUpdate.exe" cmdterminate.Enabled = False cmdexecute.Enabled = False cmdinjector.Enabled = False Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Screen.MousePointer = vbDefault End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If bSuspend = True Then If Not resmue = "yes" Then If MsgBox("Klik Yes untuk Terminate,dan No Untuk Membatalkan", vbYesNo, "") = vbYes Then cmdTerminate_Click Else Cancel = -1 End If Else OpenURL "http://Cyber-Stars.co.cc/", Me.hwnd End If End If End Sub Private Sub Form_Unload(Cancel As Integer) If bSuspend = True Then SetSuspendResumeThread False End End Sub Private Sub Timer1_Timer() winHwnd = FindWindow(vbNullString, "HSUpdate") If winHwnd <> 0 Then
NTProcessList
SetSuspendResumeThread True
cmdterminate.Enabled = True
cmdexecute.Enabled = True
cmdinjector.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
bSuspend = True
Vibrate Me, 80, 40
Timer1.Enabled = False
MsgBox "Thanks For All, Gunakan Dengan Sebaik-Baiknya !!!", vbExclamation, "Information"
End If
End Sub
Private Sub Timer2_Timer()
Timer2.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 20
End Sub
Private Sub Vibrate(Frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = Frm.Left
Tp = Frm.Top
For i = 1 To Times
Frm.Move Lft + Sgn(rScale)
Pause 5
Frm.Move Lft + rScale
Pause 5
Frm.Move Lft, Tp + Sgn(rScale), Frm.Width, Frm.Height
Pause 5
Frm.Move Lft, Tp + rScale, Frm.Width, Frm.Height
Pause 5
Next i
End Sub
Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs DoEvents Loop End Sub Buat 4 buah Module (klik Project>pilih Add Module)
Module 1 Berinama Modinjector.
module 2 berinama Modprocess
module 3 berinama modcdialog
module 4 berinama modbrowser.
Copas Code Di bawah Dan isikan Pada Modinjector
Option Explicit
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal fAllocType As Long, flProtect As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal ProcessHandle As Long, lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Any, ByVal lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function InjectDll(DllPath As String, ProsH As Long)
Dim DLLVirtLoc As Long, DllLength, Inject As Long, LibAddress As Long
Dim CreateThread As Long, ThreadID As Long
Dim Bla As VbMsgBoxResult
g_loadlibary:
LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")
If LibAddress = 0 Then
Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_loadlibary
Else
Exit Function
End If
End If
g_virutalallocex:
DllLength = Len(DllPath)
DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal &H4)
If DLLVirtLoc = 0 Then
Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_virutalallocex
Else
Exit Function
End If
End If
g_writepmemory:
Inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull)
If Inject = 0 Then
Bla = MsgBox("Failed to Write DLL to Process! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_writepmemory
Else
Exit Function
End If
End If
g_creatthread:
CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID)
If CreateThread = 0 Then
Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_creatthread
Else
Exit Function
End If
End If
MsgBox "Dll Injection Successful!", 64, "Success"
End Function
Public Sub InjectExecute(ByVal sFlDLL As String)
Dim lProcInject As Long
lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
If lProcInject > "0" Then
Call InjectDll(sFlDLL, lProcInject)
End If
Call CloseHandle(lProcInject)
End Sub
Copas Code Dibawah dan isikan pada Modprosess
Option Explicit
Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function Process32First Lib _
"kernel32" (ByVal hSnapShot As Long, _
uProcess As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib _
"kernel32" (ByVal hSnapShot As Long, _
uProcess As PROCESSENTRY32) As Long
Public Declare Function CloseHandle Lib _
"kernel32" (ByVal hObject As Long) As Long
Public FileTargetOne As String
Public FileTargetTwo As String
Public sFlDLL As String
Public IdTargetOne As Long
Private IdTargetTwo As Long
Private Const TH32CS_SNAPHEAPLIST = &H1
Private Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPTHREAD = &H4
Private Const TH32CS_SNAPMODULE = &H8
Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or _
TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Private Const MAX_PATH = 260
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Type MODULEENTRY32
dwSize As Long
th32ModuleID As Long
th32ProcessID As Long
GlblcntUsage As Long
ProccntUsage As Long
modBaseAddr As Long
modBaseSize As Long
hModule As Long
szModule As String * 256
szExePath As String * 260
End Type
Private Type THREADENTRY32
dwSize As Long
cntUsage As Long
th32ThreadID As Long
th32OwnerProcessID As Long
tpBasePri As Long
tpDeltaPri As Long
dwFlags As Long
End Type
Private Const THREAD_SUSPEND_RESUME = &H2
Private Declare Function OpenThread Lib _
"kernel32.dll" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Boolean, _
ByVal dwThreadId As Long) As Long
Private Declare Function ResumeThread Lib _
"kernel32.dll" (ByVal hThread As Long) As Long
Private Declare Function SuspendThread Lib _
"kernel32.dll" (ByVal hThread As Long) As Long
Private hThread As Long
Private Declare Function CreateToolhelp32Snapshot Lib _
"kernel32" (ByVal lFlags As Long, _
ByVal lProcessID As Long) As Long
Private Declare Function Module32First Lib _
"kernel32" (ByVal hSnapShot As Long, _
uProcess As MODULEENTRY32) As Long
Private Declare Function lstrlen Lib _
"kernel32" Alias "lstrlenA" ( _
ByVal lpString As String) As Long
Private Declare Function GetFileTitle Lib _
"COMDLG32.DLL" Alias "GetFileTitleA" ( _
ByVal lpszFile As String, _
ByVal lpszTitle As String, _
ByVal cbBuf As Integer) As Integer
Private Declare Function Thread32First Lib _
"kernel32.dll" (ByVal hSnapShot As Long, _
ByRef lpte As THREADENTRY32) As Boolean
Private Declare Function Thread32Next Lib _
"kernel32.dll" (ByVal hSnapShot As Long, _
ByRef lpte As THREADENTRY32) As Boolean
Public Declare Function OpenProcess Lib _
"kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib _
"kernel32" (ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long
Public Function NTProcessList() As Long
On Error Resume Next
Dim FileName As String, ExePath As String
Dim hProcSnap As Long, hModuleSnap As Long, _
lProc As Long
Dim uProcess As PROCESSENTRY32, _
uModule As MODULEENTRY32
Dim intLVW As Integer
hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
lProc = Process32First(hProcSnap, uProcess)
Do While lProc
If uProcess.th32ProcessID <> 0 Then
hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID)
uModule.dwSize = Len(uModule)
Module32First hModuleSnap, uModule
If hModuleSnap > 0 Then
ExePath = StripNulls(uModule.szExePath)
FileName = GetFName(ExePath)
If FileTargetOne = FileName Then IdTargetOne = uProcess.th32ProcessID
If FileTargetTwo = FileName Then IdTargetTwo = uProcess.th32ProcessID
End If
End If
lProc = Process32Next(hProcSnap, uProcess)
Loop
Call CloseHandle(hProcSnap)
Call CloseHandle(lProc)
End Function
Function StripNulls(ByVal sStr As String) As String
StripNulls = Left$(sStr, lstrlen(sStr))
End Function
Public Function GetFName(fn) As String
Dim f%, n%
GetFName = fn
f% = InStr(fn, "")
Do While f%
n% = f%
f% = InStr(n% + 1, fn, "")
Loop
If n% > 0 Then GetFName = Mid$(fn, n% + 1)
End Function
Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _
ByVal lProcessID As Long) As Long
On Error Resume Next
ReDim Thread(0)
Dim THREADENTRY32 As THREADENTRY32
Dim hThreadSnap As Long
Dim lThread As Long
hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID)
THREADENTRY32.dwSize = Len(THREADENTRY32)
If Thread32First(hThreadSnap, THREADENTRY32) = False Then
Thread32Enum = -1
Exit Function
Else
ReDim Thread(lThread)
Thread(lThread) = THREADENTRY32
End If
Do
If Thread32Next(hThreadSnap, THREADENTRY32) = False Then
Exit Do
Else
lThread = lThread + 1
ReDim Preserve Thread(lThread)
Thread(lThread) = THREADENTRY32
End If
Loop
Thread32Enum = lThread
Call CloseHandle(hThreadSnap)
End Function
Public Function SetSuspendResumeThread(SuspendNow As Boolean) As Long
Dim Thread() As THREADENTRY32, hPID As Long, hThread As Long, i As Long
hPID = IdTargetOne
Thread32Enum Thread(), hPID
For i = 0 To UBound(Thread)
If Thread(i).th32OwnerProcessID = hPID Then
hThread = OpenThread(THREAD_SUSPEND_RESUME, False, (Thread(i).th32ThreadID))
If SuspendNow = True Then
SetSuspendResumeThread = SuspendThread(hThread)
Else
SetSuspendResumeThread = ResumeThread(hThread)
End If
End If
Next i
Call CloseHandle(hThread)
End Function
Public Function TerminateTargetOne() As Long
Dim hPID As Long
hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
TerminateTargetOne = TerminateProcess(hPID, 0)
Call CloseHandle(hPID)
End Function
Public Function TerminateTargetTwo() As Long
Dim hPID As Long
hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetTwo)
TerminateTargetTwo = TerminateProcess(hPID, 0)
Call CloseHandle(hPID)
End Function
Copas Code Dibawah dan isikan pada modcdialog:
Option Explicit
'Common Dialog
Private Type OPENFILENAME
lStructSize As Long
hWndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Const OFN_READONLY = &H1
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_SHOWHELP = &H10
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules
Public Const OFN_EXPLORER = &H80000 ' new look commdlg
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules
Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHAREWARN = 0
Private Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
'Browse Folder Declarations
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Public Const BIF_STATUSTEXT = &H4&
Public Const BIF_DONTGOBELOWDOMAIN = 2
Public Const WM_USER = &H400
Public Const BFFM_INITIALIZED = 1
Public Const BFFM_SELCHANGED = 2
Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100)
Public Const BFFM_SETSELECTION = (WM_USER + 102)
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String
Dim ofn As OPENFILENAME
Dim A As Long
Dim theTemp As String
ofn.lStructSize = Len(ofn)
ofn.hWndOwner = Form1.hwnd
ofn.hInstance = App.hInstance
If Right$(Filter, 1) <> "|" Then Filter = Filter + "|"
For A = 1 To Len(Filter)
If Mid$(Filter, A, 1) = "|" Then Mid$(Filter, A, 1) = Chr$(0)
Next
ofn.lpstrFilter = Filter
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = InitDir
ofn.lpstrTitle = Title
ofn.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST
A = GetOpenFileName(ofn)
If (A) Then
theTemp = Trim$(ofn.lpstrFile)
If Asc(Right$(theTemp, 1)) = 0 Then theTemp = Left$(theTemp, Len(theTemp) - 1)
OpenDialog = theTemp
Else
OpenDialog = ""
End If
End Function
Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String
'**************************************
' Name: Win95DirectoryPrompt
' Description:Prompting the User for a D
' irectory in Win95. Windows' common dialo
' gs are great if you want the user to sel
' ect a file, but what if you want them to
' select a directory? Call the following f
' unction, which relies on Win32's new SHB
' rowseForFolder function:
' By: Found on the World Wide Web
Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo
With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If
If InStr(LCase$(sPath), "\nethood") > 0 Then
MsgBox "The item that you selected is a folder shortcut, not a folder.", vbCritical, "Browse Folders"
BrowseForFolder = ""
Else
BrowseForFolder = sPath
End If
End Function
Copas Code Dibawah dan isikan pada Mod browser:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub OpenURL(situs As String, sourceHWND As Long)
Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
End Sub
Berikutnya compile ke file exe, Dengan Cara Klik File>pilih MakeProject.exe
Semoga Bermanfaat..
Minggu, 10 Juni 2012
GAME
mencari hiburan ??
saya punya game GTA san andreas for your PC
silakan SEDOT disini
atau download disini
saya punya game GTA san andreas for your PC
silakan SEDOT disini
atau download disini
app bluetooht
sedang mencari bluetooht for PC ???
saya mempunyai app nya
silakan download disini
atau download here
BE HAPPY,...
saya mempunyai app nya
silakan download disini
atau download here
BE HAPPY,...
Sabtu, 09 Juni 2012
stoper app trial
anda sedang mencari sesuatu yang berguna ?
saya punya suatu app for your pc
untuk menghentikan app yang berjangka waktu/ trial
silakan download disini
atau download disini
cara penggunaan nya
- buka n instal in your PC
- sesudah itu klick browser pada app stoper
- cari/ pilih app yang trial , yang anda ingin hentikan (format .exe) biasanya app .exe trsb untuk shortcut
- pilih jangka waktu di sebelah kiri (2 hari sebelu waktu trial habis) terserah anda
- tulis nama shortcut yang anda inginkan
-buat shortcut n finish
saya punya suatu app for your pc
untuk menghentikan app yang berjangka waktu/ trial
silakan download disini
atau download disini
cara penggunaan nya
- buka n instal in your PC
- sesudah itu klick browser pada app stoper
- cari/ pilih app yang trial , yang anda ingin hentikan (format .exe) biasanya app .exe trsb untuk shortcut
- pilih jangka waktu di sebelah kiri (2 hari sebelu waktu trial habis) terserah anda
- tulis nama shortcut yang anda inginkan
-buat shortcut n finish
facebook app
saya punya sebuah app webcam melalui Facebook anda
silakan download disini
atau download disini
be happy,.
silakan download disini
atau download disini
be happy,.
MAKALA
anda sedang mencari sebuah MAKALA ???
saya punya sebuah Makala yang saya buat sendiri tentang lingkungan hidup
anda butuh,...
Silakan download di sini
saya hanya ingin berbagi,...
saya punya sebuah Makala yang saya buat sendiri tentang lingkungan hidup
anda butuh,...
Silakan download di sini
saya hanya ingin berbagi,...
Sabtu, 19 Mei 2012
" Arti Nama Dilihat Dari Kata Depan "
Nama kamu dimulai
dengan huruf A
Kamu tidak terlalu romantis, tapi kamu tertarik dalam bertindak. Artinya
bisnis. Bagi kamu, apa yang kamu lihat adalah apa yang kamu dapat. Kamu tidak
memiliki kesabaran untuk mengkritik dan tidak dapat diganggu dengan orang yang
mencoba terlihat lemah, manis dan menggoda. Kamu adalah orang yang ada di baris
terdepan. Kamu sering tidak mendapat petunjuk dan kamu tidak pernah memberikan petunjuk.
Bentuk fisik pasangan sangat penting buat kamu. Kamu melihat proses pengejaran
dan ‘berburu’ sebagai proses yang menarik. Kamu berhasrat, dan menjadi lebih
berpetualang daripada kelihatannya, namun, kamu tidak mengiklankan diri
sedemikian rupa. Kebutuhan fisik kamu adalah hal yang terpenting. Kamu cenderung menjadi egois
dan tidak emosional. Kamu dan kebutuhan kamu adalah yang terpenting. Yang lain
dan perasaan mereka nomor dua. Pilihan kamu tidak terlalu bagus dan sering
membawa kamu ke dalam masalah.
Nama kamu dimulai
dengan huruf B
Kamu menyerah dalam berbagai hal sensual. Kamu menikmati suasana
romantis dan menghanyutkan. Kamu sangat senang menerima hadiah sebagai ekspresi
dari pasangan kamu. Kamu ingin di manjakan dan kamu tahu bagaimana memanjakan
pasangan kamu. Kamu merahasiakan ekspresi, terutama dalam hal percintaan. Kamu akan menunda
semua sampai kondisi sesuai dengan kriteria kamu. Kamu dapat mengontrol nafsu
makan dan perasaan. Kamu membutuhkan sensasi baru dan pengalaman. Kamu sangat
ingin bereksperimen.
Nama kamu dimulai dengan
huruf C
Kamu adalah individu yang sosial, dan sangat penting untuk kamu memiliki
hubungan. Kamu membutuhkan kedekatan dan kebersamaan. Kamu ingin objek dari pasangan kamu secara sosial dapat diterima dan
berpenampilan menarik. Kamu melihat pasangan kamu sebagai teman dan sahabat.
Kamu sangat sensual, membutuhkan seseorang untuk menghargai dan selalu memujua
kamu. Ketika ini tidak dapat diraih, kamu memiliki kemampuan untuk menunda
semua perasaan cinta sampai kamu puas.
Nama kamu dimulai
dengan huruf D
Begitu kamu sampai menginginkan seseorang, kamu akan maju dengan gempita
dalam mengejarnya. Kamu tidak mudah menyerah dalam perjalanan. Kamu sangat
perhatian dan menjaga. Jika seseorang memiliki masalah, kamu sangat ingin
membantu. Kamu sangat berhasrat, setia dan serius dalam keterlibatan, dan
terkadang posesif dan pencemburu. Kamu sangat jelas dan berbakat dan memiliki rasa humor yang baik. Ketika orang
melihat mata kamu dalam-dalam, mereka tidak dapat menolak apa yang mereka
lihat. Kamu dirangsang oleh sesuatu yang diluar biasa dan eksentrik, memiliki
sikap terbuka dan bebas. Kamu cenderung menjadi pencemburu terhadap orang lain
dan mudah marah.
Nama kamu dimulai
dengan huruf E
Kebutuhan terbesar kamu adalah berbicara. Jika pasangan kamu bukan
pendengar yang baik, kamu akan mengalami masalah dalam hubungan tersebut.
Seseorang harus secara intelektual merangsang atau kamu tidak akan secara
seksual menjadi terangsang. Kamu membutuhkan teman untuk cinta dan
persahabatan. Kamu membenci ketidakharmonisan dan gangguan, tapi terkadang kamu
menyukai argumen yang baik. Kamu sangat menuntut banyak, karena sangat menyukai
tantangan. Namun begitu kamu memberikan cintamu, kamu tidak diragukan lagi
kesetiaannya.
Nama kamu dimulai
dengan huruf F
Kamu idealistik dan romantis. Kamu mencari pasangan terbaik yang dapat
kamu temukan. Kamu sangat setia, memiliki sensual dan berhasrat. Kamu dapat
menjadi suka mempertunjukan kecantikan. Kamu dilahirkan untuk menjadi romantis.
Kejadian romantis menjadi favorit kamu. Kamu dapat menjadi pecinta yang murah
hati.
Nama kamu dimulai
dengan huruf G
Kamu pekerja yang baik, mencari kesempurnaan dalam diri kamu dan
pasangan. Kamu merespon kepada pasangan yang memiliki intelektual sama atau
lebih baik, dan mereka yang dapat meningkatkan status kamu. Kamu sensual dan
tahu bagaimana meraih titik tertinggi dari suatu rangsangan. Kamu dapat menjadi
sangat aktif, seakan tidak pernah lelah. Tugas dan kewajiban kamu mengambil
alih dari segala hal. Kamu dapat mengalami kesulitan memiliki kedekatan terhadap
seseorang.
Nama kamu dimulai
dengan huruf H
Kamu mencari pasangan yang mampu meningkatkan gairah hidup, kesenangan
dan semua yang kamu cari. Kamu akan menjadi sangat murah hati terhadap pasangan
apabila kamu mendapatkan komitmen. Kamu sangat kuat dan bakat kamu adalah
sebenarnya investasi terhadap partner. Sebelum membuat komitmen, kamu cenderung
lebih hati-hati terhadap semua gerakan. Kamu sangat sensual dan pecinta yang sabar. Kamu perfeksionis, sulit dipuaskan
dan kuat dalam kepercayaan sendiri.Orang selalu dapat percaya kapada kamu untuk
bertahan dalam krisis. Kamu adalah pemimpi dalam hidup ini.
Nama kamu dimulai
dengan huruf I
Kamu memiliki kebutuhan yang besar untuk di cintai dan dihargai. Kamu
menikmati kemewahan, sensualitas dan cinta. Kamu mencari kekasih yang tahu apa
yang mereka lakukan. Kamu sangat berkeinginan untuk bereksperimen dan mencoab
berbagai tipe ekspresi baru. Kamu mudah bosan dan membutuhkan petualangan dan perubahan. Komitmen yang kamu
buat mungkin jarang dipenuhi.
Nama kamu dimulai dengan huruf J
Kamu dipenuhi dengan kekuatan fisik. Jika digunakan untuk hal baik, tidak ada yang dapat menghalangi kamu. Kamu dapat membawa hal romantis dalam pikiran kamu. Kamu juga dapat membawa hubungan jarak jauh dengan mudah. Idealistik dan perlu percaya dalam cinta.
Kamu dipenuhi dengan kekuatan fisik. Jika digunakan untuk hal baik, tidak ada yang dapat menghalangi kamu. Kamu dapat membawa hal romantis dalam pikiran kamu. Kamu juga dapat membawa hubungan jarak jauh dengan mudah. Idealistik dan perlu percaya dalam cinta.
Nama kamu dimulai dengan huruf K
Kamu penuh dengan rahasia dan pemalu. Kamu sexy dan berhasrat, hanya
dalam hubungan intim saja bagian alami ini akan muncul. Kamu membawa kehidupan
cinta dengan sangat serius dan tidak bermain main. Kamu memiliki kesabaran
untuk menunggu orang yang tepat untuk muncul. Kamu suka memberi dan murah hati
dan terkadang kurang memperhatikan diri sendiri. Secara alami kamu orang yang
baik dan manis, yang menarik banyak orang. Kamu adalah teman yang baik.
Nama kamu dimulai
dengan huruf L
Kamu dapat menjadi sangat romantis, memiliki pasangan adalah segalanya
bagimu. Kamu bebas dalam mengekspresikan cinta dan berani mengambil kesempatan
untuk mencoba pengalaman baru. Kamu perlu merasakan bahwa pasangan kamu secara
intelijen menarik, sebaliknya, kamu akan kesulitan untuk menjaga hubungan.
Nama kamu dimulai
dengan huruf M
Kamu sangat emosional dan mudah marah. Ketika terlibat dalam hubungan,
kamu membuang semua energi ke dalamnya. Tidak ada yang dapat menghentikan kamu.
Kamu mengharapkan orang yang sama sama berhasrat dan tekun. Kamu percaya dalam
energi yang tidak pernah habis. Kamu senang mengatur pasangan dan sangat
imajinatif.
Nama kamu dimulai
dengan huruf N
Kamu mungkin terlihat tidak berdosa, tidak terduga dan pemalu, tapi kita
tahu bahwa penampilan dapat menipu. Ketika berbicara mengenai cinta, kamu
bukanlah pemula. Dengan mudah kamu mendapatkan ide untuk bercinta. Kamu dapat menjadi kritis terhadap pasangan, mencari kesempurnaan dalam
hubungan kamu berdua. Sangat tidak mudah mencari seseorang yang dapat memenuhi
standar kamu. Kamu memiliki kesulitan untuk menunjukan emosi. Kamu dapat
menjadi egois, berpikir bahwa kamu selalu benar. Menang adalah hasrat utama
kamu. Kamu sering melupakan teman dan keluarga.
Nama kamu dimulai
dengan huruf O
Kamu sangat tertarik dalam aktivitas yang menarik, namun kamu juga dapat
menjadi pemalu terhadap keinginan kamu. Kamu dapat mengubah banyak energi untuk
menghasilkan uang. Kamu sangat berhasrat, pecinta yang baik, mengharapkan kualitas
yang sama dari pasangan. Cinta adalah masalah serius untuk kamu dan kamu
mengharapkan keseriusan. Terkadang hasrat kamu dapat berubah menjadi suatu hal
positif, sesuatu yang harus selalu kamu perhatikan.
Nama kamu dimulai
dengan huruf P
Kamu sangat sadar terhadap masalah sosial. Kamu tidak akan berpikir
melakukan apapun yang dapat menjelekan imej atau reputasi kamu. Penampilan
diperhatikan. Kamu membutuhkan pasangan yang berpenampilan baik dan pandai.
Anehnya kamu sering melihat pasangan sebagai musuh. Kamu sangat sosial dan
sensual.
Nama kamu dimulai
dengan huruf Q
Kamu memiliki energi fisik yang luar biasa dan membutuhkan aktivitas
rutin. Tidak mudah untuk pasangan mengikuti kamu. Kamu adalah pecinta yang
antusias dan cenderung tertarik pada orang karena latar belakang dan penampilan
yang eksotis. Kamu membutuhkan banyak romantika, hati, bunga dan percakapan
yang selalu menarik untuk dibicarakan.
Nama kamu dimulai
dengan huruf R
Kamu adalah individu yang selalu menuntut aksi. Kamu membutuhkan
seseorang yang dapat sesuai dengan kamu. Kamu menghargai pikiran yang baik
daripada segi fisik meskipun, ketertarikan fisik tetap penting bagi kamu. Kamu
mungkin tidak menunjukan perasaan cinta dengan jujur, namun cinta adalah
sesuatu yang penting untuk kamu.
Nama kamu dimulai dengan huruf S
Nama kamu dimulai dengan huruf S
Buat kamu, adalah kesenangan sebelum bisnis. Begitu kamu membuat
komitmen, kamu lengket bagaikan lem. Kamu dapat mudah cemburu dan posesif. Kamu
cenderung egois dan senang menjadi pusat perhatian. Kamu sangat sensitif,
perhatian dan private. Kamu suka memikirkan hal romantis yang diiringi musik
dan lampu yang ringan.
Nama kamu dimulai
dengan huruf T
Kamu sensitif dan menyukai pasangan yang dapat mengambil bagian. Kamu
cenderung untuk berkhayal dan mudah jatuh cinta. Dalam cinta, kamu romantis dan
idealistik. Kamu penggoda yang baik dan yang ada dalam kepala kamu adalah
bagaimana kamu dapat membuat hubungan sesuai mimpi. Kamu menyukai jalan
sendiri. Kamu tidak menyukai perubahan dan kamu menyukai bergantung dalam
kondisi yang sama. Kamu perlu mendengarkan apa yang orang lain katakan meskipun
kamu tidak ingin mendengarnya, nasihat mereka mungkin menyelamatkan cintamu.
Nama kamu dimulai
dengan huruf U
Kamu antusias dan paling bahagia ketika dalam percintaan. Ketika tidak
dalam cinta, kamu menlihat orang yang kamu kagumi. Kamu melihat romantika
sebagai tantangan. Kamu menikmati memberikan hadiah dan terlihat baik. Kamu mau
memperhatikan perasaan orang lain diatas perasaan sendiri.
Nama kamu dimulai
dengan huruf V
Kamu sangat individualistis dan menghargai kebebesan, ruang dan
kesenangan. Kamu menunggu sampai kamu mengetahui orang dengan baik sebelum kamu
memberikan komitmen. Kamu tertarik terhadap tipe eksentrik dan percaya umur
bukanlah hambatan. Kamu sangat baik dalam menghadapi bahaya dan takut.
Nama kamu dimulai
dengan huruf W
Kamu sangat bangga, gigih dan menolak untuk menjawab tidak terhadap
pertanyaan. Ego kamu yang mengambil alihsetiap waktu. Kamu idealistik dan
merasakan cinta yang sangat dalam, sehingga cenderung mencurahkan diri kedalam
hubungan tersebut. Kamu menyukai permainan cinta.
Nama kamu dimulai
dengan huruf X
Kamu cenderung mudah merasa bosan dan ingin terus digoda. Kamu dapat
mengatasi lebih dari satu hubungan dengan mudah. Kamu sangat berbakat dan
memiliki masalah untuk meredam pemikiran kamu.
Nama kamu dimulai
dengan huruf Y
Kamu sensual dan mandiri. Jika kamu tidak memiliki jalan, kamu ingin
melupakan semua hal. Kamu ingin mengontrol hubungan kamu yang berjalan tidak
baik. Kamu perlu membuktikan diri kamu yang terbaik. Kamu membutuhkan feedback.
Jika kamu bisa menghasilkan uang, kamu akan melupakan cinta untuk sesaat.
Nama kamu dimulai
dengan huruf Z
Kamu sangat romantis namun terkadang merasakan bahwa untuk mencintai
berarti siap untuk menderita. Kamu melayani pasangan dengan baik. Kamu melihat
diri kamu sebagai penyelamat cinta. Kamu menarik orang yang memiliki masalah
yang tidak biasa.
Jumat, 04 Mei 2012
Senin, 30 April 2012
Langganan:
Postingan (Atom)






