استخراج الوجر من البرامج وفك التشفير

بعد انشاء form جديد نصع اداة progressbar و Button و Timer

و لتغير الالوان تغير قيمة 

(sendmessage(progressbar1.handle,1040,3,0

حيث الرقم 1 اللون الاخضر الطبيعي 

الرقم 2 اللون الاحمر 

الرقم 3 اللون الاصفر

[/code]

كود :

Public Class form1

    Private Declare Function sendmessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wparam As Integer, ByVal lparam As Integer) As Integer

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        sendmessage(ProgressBar1.Handle, 1040, 3, 0)

        Timer1.Start()

    End Sub

[code]

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ProgressBar1.Increment(1)

    End Sub