THT DUYURU

THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

VB 6.0 Site Açma Yardım

steel11 - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
02/2012
Nereden:
İstanbul
Mesajlar:
182
Konular:
65
Teşekkür (Etti):
53
Teşekkür (Aldı):
4
Ticaret:
(0) %
3
328
25-11-2012 02:48
#1
sa arkadaşlar ben vb 6 da bir butona bu kodları



Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute GetActiveWindow(), "Open", "http://turkhackteam/", "", 0&, 1
End Sub

fekleyip site açtırıyoum fakat çoğaltmak için 2.buton açıp bu kodları ekleyince hata veriyor

2 kodun arasına hangi kodu yazmam gerek yardımlarınız bekliyorum..
OnlineGameHacked - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
194
Konular:
43
Teşekkür (Etti):
159
Teşekkür (Aldı):
15
Ticaret:
(0) %
25-11-2012 03:03
#2
kardeş vb.net zaten kolay kodlaması üstüne tıklayınca oraya kod çıkması lazım zaten ona bas düzelir bende kod hatası olunca öyle ypaıyorum
---------------------
Yakında Büyük Hacker Olacağım.
Bu Sözümü Unutmayın...
OnlineGameHacked - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
194
Konular:
43
Teşekkür (Etti):
159
Teşekkür (Aldı):
15
Ticaret:
(0) %
25-11-2012 03:15
#3
Alıntı:
steel11´isimli üyeden Alıntı Mesajı göster
sa arkadaşlar ben vb 6 da bir butona bu kodları



Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute GetActiveWindow(), "Open", "http://turkhackteam/", "", 0&, 1
End Sub

fekleyip site açtırıyoum fakat çoğaltmak için 2.buton açıp bu kodları ekleyince hata veriyor

2 kodun arasına hangi kodu yazmam gerek yardımlarınız bekliyorum..
Kod:
Option Explicit On
Public Class Form1
    Private Declare Function GetActiveWindow Lib "user32" () As Long
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Sub Command1_Click()
        ShellExecute(GetActiveWindow(), "Open", "http://www.sultanhacked1.denemepaketi.com/", "", 0&, 1)


    End Sub
End Class
Al Kardeş Form'u sil bunu yapıstır siteyi editledim k.bakma denemek için buyur değiştirirsin
---------------------
Yakında Büyük Hacker Olacağım.
Bu Sözümü Unutmayın...
steel11 - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
02/2012
Nereden:
İstanbul
Mesajlar:
182
Konular:
65
Teşekkür (Etti):
53
Teşekkür (Aldı):
4
Ticaret:
(0) %
25-11-2012 03:45
#4
teşekkürler ama bu kodda olmadı daha dogrusu hiç çalışmadı..

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler