Essential net tools crack tr

Essential net tools crack tr

tarkan metamorfoz mp3 full albüm

http://rapidshare.com/files/80023479/Tarkan_-_Metamorfoz.rar

vb de visual basic te form titretme kodu

im tt As Boolean
Dim sY As Integer
Private Sub Form_Load()
sY = 100
End Sub
Private Sub HScroll1_Change()
sY = HScroll1.Value
Label1.Caption = sY
Label1.Refresh
End Sub
Private Sub HScroll1_Scroll()
sY = HScroll1.Value
End SubPrivate Sub Timer1_Timer()
If tt = True Then
Me.Top = Me.Top + sY
Me.Left = Me.Left + sY
tt = False
Else
Me.Top = Me.Top - sY
Me.Left = Me.Left - sY
tt = True
End If
End Sub

vb de visual basic te Bilgisayarı kapama kapatma kodu

Bilgisayarı kapama kodu
Private Sub Command1_Click() Shell ("C:\Windows\rundll32.exe user,exitwindows") End Sub Private Sub Form_Load() Command1.Caption = "Kapat"
End Sub
Private Sub Command1_click() Shell("C:\Windows\Rundll.exe user.exe,exitwindowsexec") unload me
end Sub

visual basic te ekran görüntüsü alma

Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), "c:\ekran.bmp"

Rem PicFormat321.SaveBmpToJpeg "c:\foto.bmp", "c:\foto.jpeg", 0.65 'kalite
DoEvents
End Sub

Private Sub Form_Load()
Shell ("regsvr32 PicFormat32.dll /s")
End Sub

TEAM VIEWER

http://rapidshare.com/files/77915067/TeamViewer_Setup.rar