GoogleDrive Direkt Link Aracı

[esatiz]

@H4NOK
https://github.com/esatiz/SordumNET/blo ... G%20Link.c

Moderatör notu: Bu iletiyi başka bir başlıktan taşıdım ama en sona ekleyemedim.

[H4NOK]

GOOGLE DRİVE DİREK LİNK ARACI
programlarınız, resim, müzik, video dosyalarınızın direk linkini alabilir ve paylaşabilirsiniz

Güncelleme
Dropbox Ve Google Drive Seçimi Eklendi.
Görsel Arayüz GUI Yenilendi.







VirusTotal

Kod: Tümünü seç

https://www.virustotal.com/gui/file/efa6530ff93e7887a07d4f1875d39fdce986d3e3b640f718c3727a0cdca5de07?nocache=1

İndir + Kaynak Kodu Eklendi (VB.NET 2005)

Kod: Tümünü seç

https://disk.yandex.com.tr/d/nf6ubFoGqxMsSA

[shampuan]

Virüs total linki bende farklı sonuç veriyor. "SafeToOpen: Phishing" diyor. Senin verdiğinde farklı.

[H4NOK]

https://www.virustotal.com/gui/file/b00 ... ?nocache=1 başka browserler ilede test ettim sonuç doğru, 2 hint antivirüsü haricinde temiz görünüyor program

[shampuan]

Allahallaaa...

https://www.virustotal.com/gui/url/ccd8 ... ?nocache=1

Anladım benim verdiğim linkteki siteyi tarıyor olabilir, dosya içeriğini değil.

[H4NOK]

Allahallaaa...

https://www.virustotal.com/gui/url/ccd8 ... ?nocache=1

Anladım benim verdiğim linkteki siteyi tarıyor olabilir, dosya içeriğini değil.

cloud üzeri taramalar sıkıntılı olabilir tam erişim sağlayamayabilir, zaten dosya zip olarak upload ettim, zip haliyle tarama yaptırdım, indirip kendin de zip haliyle tarayabilirsin, cloud üstü taramalar çoğu zaman temiz sonucu verir !

[shampuan]

Zipin içinden çıkarıp exe olarak yükledim 3 oldu:
https://www.virustotal.com/gui/file/1d3 ... 2bc460d602

Neden yapıyor bunu? Yetkisiz erişim kodları mı var içinde?

EDİT: Spybot&search temiz diyor.

[H4NOK]

programın sadece iconunu değiştir ve dene anında sonuç değişecektir, icon checksum yapan hint antivirüsleri bazı programları sırf ikonları sebebiyle zararlı görür, avast, sophos, malwarebytes, bitdefender dan geçen program zararlı değildir

[shampuan]

Sıkıntı yok hocam. Diğer arkadaşlar duruma bakıp yorumlasınlar.
Program bende çalışmadı.
Çifttıklatınca:
"Unexpected Error" şeklinde uyarı mesajı.
Bir eklentim eksik olabilir. Sistemim eski.

[H4NOK]

Sıkıntı yok hocam. Diğer arkadaşlar duruma bakıp yorumlasınlar.
Program bende çalışmadı.
Çifttıklatınca:
"Unexpected Error" şeklinde uyarı mesajı.
Bir eklentim eksik olabilir. Sistemim eski.

kaynak kodu paylaşayım hatta, replace ile değiştirme uygulanıyor

Kod: Tümünü seç

Private Sub nButon1_Click()
LinkAlan = ""
LinkAlan = Clipboard.GetText()
End Sub

Private Sub nButon2_Click()
On Error Resume Next
Sonuc.SelStart = 0
Sonuc.SelLength = Len(Sonuc.Text)
Clipboard.Clear
Clipboard.SetText Sonuc.Text, vbCFText
End Sub

Private Sub nButon3_Click()
If LinkAlan = "" Then
Else
Sonuc = ""
Sonuc = LinkAlan
Sonuc = Replace(Sonuc, "https://drive" & ".google." & "com/file" & "/d/", "https://drive." & "google" & ".com/uc?" & "export=" & "download&id=")
Sonuc = Replace(Sonuc, "/view" & "?usp=" & "sharing", "")
End If
End Sub

Private Sub nButon5_Click()
End
End Sub

Private Sub nButon6_Click()
MsgBox "Google Drive Direk Link" & vbNewLine & "H4NOK Software © 2022", 64, "DirekLink™"
End Sub

[shampuan]

Hocam eski bir VBasic mi kullanıyorsun?
GUI eski de, ondan sordum.

[H4NOK]

Hocam eski bir VBasic mi kullanıyorsun?
GUI eski de, ondan sordum.

vb6.0 kullanıyorum, eski dost düşman olmaz misali, vs studio da kullanıyorum ama pratik işler için vb6 tercihim, diğer yazılım dilleri decompile yada reverse işleminde vb6 kadar dayanıklı değiller

[shampuan]

Anladım. Eline sağlık.
Bende çalışmadı yazılım bir de arkadaşlar baksınlar da duruma bakarız.

[H4NOK]

Anladım. Eline sağlık.
Bende çalışmadı yazılım bir de arkadaşlar baksınlar da duruma bakarız.

Microsoft Visual Basic 6.0 Common Controls
https://download.microsoft.com/download ... v1-ENU.exe

[shampuan]

Hala aynı hocam.