Alın Size Wordlist Maker
-
Private Sub Command1_Click()
On Error Resume Next
A$ = Text3
For i = Text1 To Text2
List1.AddItem A$ & i
Next i
If Text1 > Text2 Then
MsgBox ("Sayısal Giriş Hatası!"), vbCritical, "Numerical Error!"
List1.Clear
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub Command3_Click()
On Error Resume Next
Dim dosyaadi As String
CommonDialog1.DialogTitle = "Kayıt Edilecek Dosya"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
s = List1
Print #1, s
Close #1
Caption = CommonDialog1.FileName
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Evet Beyler bu program wordlist oluşturmanıza yaran bir program ok hadi kolay gele :) -
abi bunu nası yapocaz ?
nereye yazcaz bunu ?
command buttona mı ?
bi tek cb mi eklicez ?
text box da eklememiz gerekecek mi ? -
mohemre formu aç 4 tane command buton ekle
yukardaki koduda subload bölümüne yapıştır o kadar
ama ben bu programın nasıl wordlist oluşturduğunu annamadım.
yani programda nasıl bir yapay zeka varki kafasından anlamlı kelime atacak ?? -
subload dediğin form sanırım
yaptım da bi işe yaramadı... -
3 tane text box 1 tane list box 4 tane button 1 tane comondialog oki
-
heralde şöyle kelimeler üretiyor
a
aa
abc
adtdfg
fdkjfhsd
fsdkfjhslk j
fdsgafg
??
neyse deneyeyim... -
İlgileniyosanız kodlarla birlikte exe dosyasıda içinde siz zahmet etmeyin ben yerinize yaptım
http://www.mp3cek.com/~ak/ak/wordlist.zip -
yapamayan dediğin bensem eğer bil ki vbyi ilk kullanışım.ve de pek önemli bişi deil.
daha zorlarını yaptim. -
Allah allah herkes alıngan olmuş hocam yazdığımı adam gibi oku YAPAMAYAN diye bir ifade varmı yok niye alınganlık yapıyosunki insanlara burada uğraşmasınlar diye bir şey sunuyoruz söylediğine bak lütfen yazdığımı bi daha oku art niyet arama
-
her ne kadar garip olasa da tamam.
saol. -
Sen saol yanlış anlamışın beni sadece o kadar.
Toplam Hit: 5772 Toplam Mesaj: 12