Jump to content
Forumu Destekleyenlere Katılın ×
Paticik Forumları
2000 lerden beri faal olan, çok şukela bir paylaşım platformuyuz. Hoşgeldiniz.

Connector Kaynak Kod / Visual Basic 6.0

Arlooax

Son yazan: Arlooax
yeri: UO Scriptsharing

 Paylaş

Öne çıkan mesajlar

Mandoo Experienced

Mandoo

Mesaj tarihi:
Mesaj tarihi:
Beyler peki nasıl connector üzerinden bi serverin yaptığı gibi mapi ve verdatayı verebiliriz bunu da söyleyin tam olsun...[hline]163960474[/b]

Fenerbahçeli olma kursumuz açılmıştır 10:00
Kurs kontejyanımız dolmuştur 10:01
--Istek üzerine delikanlı olma kursumuz açılmıştır Tüm Gs lileri çağrıyoruz sizlere ücretsiz...
--Çok talep oldu mecidiyeköye de bi şubemiz açıldı ama kontejyan doldu üçüncü şubemizde kurulacaktır bekleyin...
--Beşiktaşlılar da bizim için bişiler yapın diye çok ısrar ettiler onlarada beyin nedir nasıl kullanılır ve para vermeden nasıl şampiyon olunur kursu açtık!
--Son olarak Diplomalarımızı dağıtıyoruz ilk dönem mezunlarını verdik ama gsliler ve bjklilerin hepsi sınıfta kaldı..Tabi alt yapıları berbat herşeye baştan başlıcaz...
Link to comment
Sosyal ağlarda paylaş
Arlooax Enthusiast

Arlooax

Mesaj tarihi:
  • Konuyu açan
Mesaj tarihi:
Download için birden çok farklı farklı methodlar kullanabilirsiniz. En basiti, fikir vermesi açısından:

Yeni bir proje açın, Bu projeye:

1 Adet Label
1 Adet Command Button

koyup aşşağıda verdiğim kodu Form1 içine copy paste edin.

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Const HedefURL As String = "http://www.ayensoft.com/connvb6.zip"
Private Const LokalAlan As String = "C:consource.zip"
Private Sub Command1_Click()
DosyaIndir HedefURL, LokalAlan
End Sub
Private Function DosyaIndir(URL As String, LocalAlan As String) As Boolean
Dim DegerKontrol As Long
DegerKontrol = URLDownloadToFile(0, URL, LocalAlan, 0, 0)
If DegerKontrol = 0 Then
DosyaIndir = True
Label1.Caption = "Dosya indirildi"
End If
End Function
Link to comment
Sosyal ağlarda paylaş
Gremlin Enthusiast

Gremlin

Mesaj tarihi:
Mesaj tarihi:
ya 3-4ve 6 da sorunlar çıktı sanırım bu yüzden yükleme yarısında disket istio 3-4ve6 yı tekrar bi kontrol edermisin pls...[hline]Baggio, 03 July 2003 18:32 tarihinde demiş ki:
Sphere bolumunun 2 hafta kadar once atildigi Oyunlar bolumunden Ilgi Alanlari'na alinmasi icin kampanya baslatiyorum, katilanlar bi reply seetsinler suraya.
Baggio, 03 July 2003 19:42 tarihinde demiş ki:
Burasi Scriptsharing bolumu yanliz, UO degil
omer_gnr, 03 July 2003 20:48 tarihinde demiş ki:
Yanlış düşünüyorsunuz arkadaşlar UO oyundan başka birşey değil.
gremlin483 şu anda dio ki:
İsteyen istediği yorumu yapsın artık...

MY ICQ[/b]=Listeye Ekle

Link to comment
Sosyal ağlarda paylaş
Arlooax Enthusiast

Arlooax

Mesaj tarihi:
  • Konuyu açan
Mesaj tarihi:
TheCoder çalışmayan kodunu yazarsan bakıyım ne yapmaya çalıştığına fakat konu amacından sapıyo ben veya başka bir arkadaşım o kodları yazdığı sürece Copy vs PASTE olayına giriyo.

SendMessage da anlayamadığın olayı yazarsan, Ya da yol göstereyim en iyisi:

Sphere i resynch yapabilmen için ilk önce ne yapman gerektiğini sor kendine kabaca.

Nedir? Konsoldan "R" komutu girmen lazımdı galiba yanılmıyorsam değil mi?

Bu durumda ulaşman gereken Sphere'de Konsol komutunu girdiğin Text Box.

O TextBox un windows Handle ını bulman lazım. Findwindow API si ve ilgili Diğer APIler yardımcı olur.

O Handle ı bulduktan sonra PostMessage veya SendMessage ile "R" komutunu ve ardından "RETURN" komutununu göndermelisin.

Hmm Hadi son seferlik bir de kod örneği verelim incele. Özellikle kullanılan API leri ve parametlerine fokuslan. MSDN den ne işe yararlar oku. Altta kabaca yazdım, dikkatli irdeler araştırırsan tam olarak ne yaptımı anlarsın.

Kolay gelsin.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 PostMessage Lib "user32"
Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_CHAR = &H102

Private Sub ResynchSphere()
Dim hwnd As Long
Dim bWnd As Long
hwnd = FindWindow("SphereSvr", vbNullString)
bWnd = FindWindowEx(hwnd, ByVal 0&, "Edit", vbNullString)
'---------------------------------
'Sphere e RESYN komutu yollayalım
'----------------------------------
PostMessage bWnd, WM_CHAR, 82, ByVal 1 'R
PostMessage bWnd, WM_CHAR, 13, ByVal 1 'RETURN
End Sub
Link to comment
Sosyal ağlarda paylaş
Arlooax Enthusiast

Arlooax

Mesaj tarihi:
  • Konuyu açan
Mesaj tarihi:
Ceday malesef Long Integer'la olmaz, kendi Custom Timer'ini yazmadigin surece.

Simdi o konuyu su sekil yapabilirsin. Timerlar'in limiti belli dedigin gibi. Bunun icin bir Variable tanimla. ya bir Modulde PUBLIC tanimla ya da TIMER i kullanacagin Form da en ustte at ki degerini tutsun.

TIMER ini bir dakikaya ayarla, nedir? A$$a yukari 60000 interval 1 dakikaya denk gelir. ( Ufak bir hatirlatma, cok ince detay isteyen - Scientific- Timing lerde standart Timer pek iyi olmaz, sapma olur cunku, fakat senin yazmakta oldugunu tahmin ettigim programda sorun cikarmaz). Neyse bir ornek verelim.

Formun Declaration kismina :

Private Const TIMER_LIMIT As Integer = 5
Private MinuteCounter as integer

Ondan Sonra INTERVAL i dedigim gibi 60k olan bir Timer yap.

Private Sub Timer1_Timer()
MinuteCounter = MinuteCounter + 1
If MinuteCounter = TIMER_LIMIT Then
'Buraya ne yapilmasini istiyosan onun kodu
MinuteCounter = 0 ' Sayaci Sifirla
End If
End Sub

Walk Around bu sekilde TIMER integer limitini asabilirsin.
Link to comment
Sosyal ağlarda paylaş
Arlooax Enthusiast

Arlooax

Mesaj tarihi:
  • Konuyu açan
Mesaj tarihi:
Rica ederim konunun asil amaci bu zaten. Connector yazarken konulara girmek. Bu arada hafizam beni yaniltiyo mu ? imzanda anet uo gordum, anet'in Admin arkadasiyla eskide kalan bir zamanda cok hos sohbet etmistik maziye dair :) Kendisine bol bol selamlar iletirsen sevinirim :) keyfi yerindedir isallah.

Simdi direk senin dedigin sekilde bir ornek vereyim acik olsun o zaman. Mesela ilk olarak su adresi check et browser dan.

http://www30.brinkster.com/hamhum/version.txt

Buraya senin onerdigin gibi bir text dosyasi upload ettim.

Sonra yeni bir proje ac VB Compilerinda. Bu projeye "Projects >> Components" dan "Microsoft Internet Transfer Control 6.0" i ekle. Bu component ile o text dosyasina ulasicaz. Ayni islemi win API lerlede yapabilirsin ama o biraz tricky gelir simdi, ilerde kendin arastirir ogrenirsin zaten, bu isini gorur ama.

Daha sonra projene ToolBardan INET kontrolonu cift tiklayarak ekle ( Components dan projene referans olarak dahil ettigin component ) , bir tanede Command Button ekle.

Form1 e assadaki kodu paste et:

Private Const verURL As String = "http://www30.brinkster.com/hamhum/version.txt"

Private Sub Command1_Click()
Dim MyVersion As String
MyVersion = Inet1.OpenURL(verURL)
MyVersion = Mid(MyVersion, 9, Len(MyVersion) - 8)
If MyVersion = "1.2" Then
Form1.Caption = MyVersion
' Do stuff
Else
'Do stuff
End If

End Sub

Hemen anlayacagin uzerine Inet kontrolu ile bir degiskene o text dosyasinin icerigini atadin. Daha sonrada versiondan once gelen kismi VB nin natural string functionlari ile ayikladin.

daha sonrasi da oncesi gibi basit bir islemle, en basic if then else ile istedigin kodu calistirtabilirsin. Bu ilk sordugunun cevabi oluyo galiba. Bu kodun duzgun calismasi icin internete bagli olmalisin haliyle.

Ikinci dedigine gelince , sifreleme algoritmalari cok cesitli, ama benim tavsiyem kendi algoritmani kendin yazman :)

Arlooax The Elven Mage
Link to comment
Sosyal ağlarda paylaş
  • 9 ay sonra ...
 Paylaş
Konu listesine dön
×
  • Yeni Oluştur...