tag:blogger.com,1999:blog-4921443743845899962024-03-18T21:59:23.507-07:00Oğuz Delioğluc# programlamaOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.comBlogger35125tag:blogger.com,1999:blog-492144374384589996.post-59764468498224108482019-10-16T06:30:00.000-07:002019-10-16T06:30:22.010-07:00Findgoo.com (Abone - İzlenme - Like - Disslike - Yorum) Paneli<br />
<div class="vbseo_buttons" id="lkbtn_1.138487.1825065" style="-webkit-text-stroke-width: 0px; clear: both; color: black; font-family: verdana, geneva, lucida, "lucida grande", arial, helvetica, sans-serif; font-size: 11px; font-style: normal; font-variant-caps: normal; font-variant-ligatures: normal; font-weight: 400; letter-spacing: normal; margin: 10px 0px; orphans: 2; position: relative; text-align: start; text-decoration-color: initial; text-decoration-style: initial; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px;">
</div>
<br />
<div id="post_message_1825065" style="-webkit-text-stroke-width: 0px; color: black; font-family: verdana, geneva, lucida, "lucida grande", arial, helvetica, sans-serif; font-size: 13.3333px; font-style: normal; font-variant-caps: normal; font-variant-ligatures: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: start; text-decoration-color: initial; text-decoration-style: initial; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px;">
<div align="center">
<b>Merhaba arkadaşlar.</b><br />
<br />
<b>2017</b> yılında geliştirdiğim ve bugüne nasip olan projeyi sonunda faaliyete geçirmiş bulunmaktayım.<br />
<br />
<b>Not:</b> Api sistemiyle yapılan işlemlerin etkisi youtube tarafından kaldırıldı.<br />
Sistem firefox kullanarak gerçek youtube hesabınız ile işlem yaptırıyor.Böylece sistemi kullanan bütün kullanıcılar gerçek bir youtube kullanıcısı gibi davranıyor.Abone like izlenme kayıpları yaşanmıyor.<br />
<br />
<div align="center">
------------------------------------------------<br />
<br />
<b>Projenin Özellikleri</b><br />
<br />
<b>İzlenme: </b>Videolarınız eğer 5 dakikadan uzunsa 5 dakikaya kadar izlenir.Eğer 5 dakikadan kısaysa tamamıyla izlenir.<br />
Sistemi kullanan diğer kullanıcıların hesaplarıyla bu işlem yapılır.<br />
<br />
<b>Like:</b> Videolarınıza like gönderebilirsiniz.Sistemi kullanan diğer kullanıcıların hesaplarıyla bu işlem yapılır.<br />
<br />
<b>Disslike:</b> Videolarınıza disslike gönderebilirsiniz.<br />
Sistemi kullanan diğer kullanıcıların hesaplarıyla bu işlem yapılır.<br />
<br />
<b>Yorum:</b> Sitenin veritabanındaki yorumları sizin istediğiniz videoya yorum olarak ekler.Sistemi kullanan diğer kullanıcıların hesaplarıyla bu işlem yapılır.<br />
<br />
<b>Abone:</b> Sistemi kullananlar size abone olur.<br />
Hesaplar browserdan girildiği için abone düşüşü neredeyse yoktur.</div>
<br />
<div align="center">
------------------------------------------------</div>
<br />
Programı <b>özgün</b> kanalı olanlar için tavsiye ediyorum.Kitleyi elde tutmayı yükseltmek için muhteşem bir sistem.<br />
<br />
4000 saat tamamlamak için kullanabilirsiniz.<br />
<br />
1000 abone yapmak için kullanabilirsiniz.<br />
<br />
Like-Disslike orantılı kullandığınız zaman önerilenlere çıkma ihtimaliniz yükseleceğinden bu sistemi de tavsiye ediyorum.<br />
<br />
<br />
<br />
<br />
<b>Ana Sayfa :</b> <a href="http://findgoo.com/" rel="nofollow" style="color: #22229c; text-decoration: none;" target="_blank">Findgoo.com | Best Youtubers Platform</a><br />
<b>Kayıt Linki :</b> <a href="http://findgoo.com/register" rel="nofollow" style="color: #22229c; text-decoration: none;" target="_blank">Findgoo.com | Best Youtubers Platform</a><br />
<br />
<br />
<b>Kurulum</b><br />
1 - <a href="https://www.mozilla.org/tr/firefox/download/thanks" rel="nofollow" style="color: #22229c; text-decoration: none;" target="_blank">Firefoxu İndirin.</a> Youtube hesabınıza Firefox ile giriş yapın.<br />
2 - Kredi kazanmak için <a href="http://findgoo.com/download" rel="nofollow" style="color: #22229c; text-decoration: none;" target="_blank">BURADAN</a> programı indirip çalıştırın.<br />
<b>Not:</b> Program Firefoxu Arkaplanda Sessiz bir şekilde çalıştırır.Bu sayede bilgisayarınızı program çalışırken rahatça kullanabilirsiniz.<br />
<br />
<br />
<b>Program Görselleri</b><br />
<img alt="" border="0" class="tcattdimgresizer" src="https://i.hizliresim.com/7BZOqa.png" /><br />
<img alt="" border="0" class="tcattdimgresizer" src="https://i.hizliresim.com/r0vq31.png" /><br />
<br />
<br />
Program ile kredi kazandıktan sonra siteden kendi işlemlerinizi ekletip puanlarınızı harcayabilirsiniz.<br />
<br />
<b>Site Görselleri</b><br />
<table class="ncode_imageresizer_warning" id="ncode_imageresizer_warning_1" style="background: rgb(255, 255, 225); border: 1px solid rgb(204, 207, 255); color: black; cursor: pointer; width: 800px;"><tbody>
<tr><td class="td1" style="font: 10px verdana, geneva, lucida, "lucida grande", arial, helvetica, sans-serif; padding: 2px; text-decoration: none; vertical-align: middle;" width="20"><img alt="" border="0" height="16" src="https://www.ytpara.com/images/statusicon/wol_error.gif" width="16" /></td><td class="td2" style="font: 10px verdana, geneva, lucida, "lucida grande", arial, helvetica, sans-serif; text-decoration: none; vertical-align: middle;">This image has been resized. Click this bar to view the full image. The original image is sized 1859x948.</td></tr>
</tbody></table>
<img alt="" border="0" class="tcattdimgresizer" height="407" id="ncode_imageresizer_container_1" src="https://i.hizliresim.com/BOgVAD.png" width="800" /><br />
<table class="ncode_imageresizer_warning" id="ncode_imageresizer_warning_2" style="background: rgb(255, 255, 225); border: 1px solid rgb(204, 207, 255); color: black; cursor: pointer; width: 800px;"><tbody>
<tr><td class="td1" style="font: 10px verdana, geneva, lucida, "lucida grande", arial, helvetica, sans-serif; padding: 2px; text-decoration: none; vertical-align: middle;" width="20"><img alt="" border="0" height="16" src="https://www.ytpara.com/images/statusicon/wol_error.gif" width="16" /></td><td class="td2" style="font: 10px verdana, geneva, lucida, "lucida grande", arial, helvetica, sans-serif; text-decoration: none; vertical-align: middle;">This image has been resized. Click this bar to view the full image. The original image is sized 1858x779.</td></tr>
</tbody></table>
<img alt="" border="0" class="tcattdimgresizer" height="335" id="ncode_imageresizer_container_2" src="https://i.hizliresim.com/Z5RrEk.png" width="800" /><br />
<table class="ncode_imageresizer_warning" id="ncode_imageresizer_warning_3" style="background: rgb(255, 255, 225); border: 1px solid rgb(204, 207, 255); color: black; cursor: pointer; width: 800px;"><tbody>
<tr><td class="td1" style="font: 10px verdana, geneva, lucida, "lucida grande", arial, helvetica, sans-serif; padding: 2px; text-decoration: none; vertical-align: middle;" width="20"><img alt="" border="0" height="16" src="https://www.ytpara.com/images/statusicon/wol_error.gif" width="16" /></td><td class="td2" style="font: 10px verdana, geneva, lucida, "lucida grande", arial, helvetica, sans-serif; text-decoration: none; vertical-align: middle;">This image has been resized. Click this bar to view the full image. The original image is sized 1482x802.</td></tr>
</tbody></table>
<img alt="" border="0" class="tcattdimgresizer" height="432" id="ncode_imageresizer_container_3" src="https://i.hizliresim.com/odlLk7.png" width="800" /><br />
<br />
<br />
<br />
Sistemi tamamiyle kendim kodladım.<br />
Eksik,hata veya geliştirilmesini istediğiniz yerlerini konu altından yazabilirsiniz.<br />
<br />
<br />
Bol kazançlar...</div>
</div>
Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-88545838183195283072017-09-12T03:40:00.001-07:002017-10-13T10:06:32.648-07:00Steemit Uygulaması Lisanslama[Bot Sürüm:1.0.0]Lisanslar:54FD2C5A4B4A0ECB9C3147B87F81240F,CFEB4D4B9A6F80B5FBFBEC84FD1B8516,2C76BD42666D2A4B71B3B0C28A81DC33,5A550E9E34FAE90929A209E220F7F4B6,2C76BD42666D2A4B71B3B0C28A81DC33,2C76BD42666D2A4B71B3B0C28A81DC33,72DC14B0B6F348D772415489D37C97DF,2C76BD42666D2A4B71B3B0C28A81DC33,2C76BD42666D2A4B71B3B0C28A81DC33LisansSonuOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-70412815571217499142016-09-16T11:59:00.003-07:002019-11-11T06:23:16.988-08:00Sürüm Listesi<youtubeeditor>1.0</youtubeeditor><yorumbotu>1.0</yorumbotu><abonelikebotu>1.1</abonelikebotu><youtuberbotu>1.0.0.1</youtuberbotu>Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-21004802840197169182016-09-13T02:35:00.001-07:002019-07-29T03:39:30.060-07:00Youtube İzlenme Abone Yorum Beğeni KazanmaMerhaba arkadaşlar.<br />
Bu tanıtacağım site addmefast benzeridir fakat addmefasttan daha kaliteli ve daha stabil çalışmaktadır.<br />
İmacros falan gerektirmez sistem kendisi otomatik çalışır.<br />
Videonuzu izletebilir,yorum yaptırabilir(sizin yorum listenizdeki yorumları yaptırır) ,beğeni yapar ve abone kasar.<br />
Yapmanız gereken sadece 1 adet sisteme youtube kanalı bağlamak.Yorum beğeni izleme ve abone kasma işlerini bu kanal ile yapacak.<br />
NOT: Beğeni bölümü şuan bakımda
Sistemden Resimler
<a href="https://i.hizliresim.com/rEOY13.png" imageanchor="1"><img border="0" src="https://i.hizliresim.com/rEOY13.png"></a>
<a href="https://i.hizliresim.com/dXO4BD.png" imageanchor="1"><img border="0" src="https://i.hizliresim.com/dXO4BD.png"></a>
<a href="https://i.hizliresim.com/40aYzA.png" imageanchor="1"><img border="0" src="https://i.hizliresim.com/40aYzA.png"></a><br />
<br />
<br />
Kayıt Olmak için <a href="https://www.ytmonster.net/register?ref=holyturk"><b><span style="color: red;">TIKLA</span></b></a>Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com2tag:blogger.com,1999:blog-492144374384589996.post-31662310635622513092015-08-27T01:26:00.001-07:002017-10-21T08:19:19.575-07:00Lisans ListesiLisanslar:249F4DA90A0CD97012B518C20AA9A0FE,2FE0C9C5E9C3E1BE40B510138B40D498,FC82F05B70CBFA8DD9A0EBA130CC78FA,61925A073DD618AE5671FB183B06281E,75C47C9EB80A1C86036DE966DBFD2D24,843A27B11A39EDA0419DB432D139265C,1D9C92F282FB792D25024F23409FB713,88CC837A03B2EB80BDB9F7B78AC565FC,CC40849B53EC01472A7982B5C2859672,AAACBD2FEA23E088F292B43984413F90,84D3BD1D8E3BD4345447B85ED7056CA5,odeldeneme,D7EE0D35807D5C267533BEC353410834,0F3F9BBBC46FDEFC143A4FCDF2297A9F,235817AD6F69A2FE8E2541EDC29E0D40,B1FE2F08AE6E479B8E2679240BA3F5C1,D4274EEBC30876F92221A6B058FA6EE4,DB76E833753F2337B64F5C0ADCD30BBF,204D5C7CFF1A08549AE5D8D41DD6D4C8,C5EFB122951164BA6E00E127D96FD032,D85D3B91E2A057AB0CBDBCAFFDD8A044,E750220579D1E39D9F35D39EF40E74B0,4C05E1C9C23418C6E378034E16ED7F35,0D335909B2D4BD4D9FCF475FD4DB385C,B49322327C3B22F441CD15B2C406A773,4A31B96ABFB757490549FF8757E0AA26,256D6064FD35DB17CC87C467967B7BF0,6D6EF34A47B0371306B56575DA7AF350,E7F781AF9CE8434A1FC8F6A05640AD0B,8BFDEE5B96F32EE4F9BC8F9379151624,5C5A63B08ECD2D3969F8AFEB15DDE18A,4F6E94B0CF9B210230B2CCA9EA8431E4,8B66B75AEB09FDECBCF661F2D8F66711,25007A379C0932C0F18934A9DBFE9583,0B72DCDB2FB9DE86F02AF549184632E0,C79DD759959D4A05C311B011F1066FA1,2761AE03B91E91CBA0D78EEC93B9BBD4,1012391260300D14932B1B0835E719F5,B8D75950F872219E84D2EEF0CC12E1E9,49F2BFFA0C6A0B2394A97994E2FF3B31,7A6E49B3361A7FF00C306D59C9075E29,46F0A5319C13FD30DF686E3E1462F65C,69BA62AEAC66DA5CC88C6E147EF3A0FD,5F23531D044B2E7827BA2947BED9D92F,54200D287929A216B993A2BE9FF59317,2BC67D74E4AB4F1313D904E7F9571894,63329426123E94F28ED8D7FD08BEA5E4,C56F6AC383CB501302CE16CA57310FF9,46561354470D6B0C86F84F4508528B9C,21A8F3E2CE48EF9A51A2F40BF5A77161,11DB1D5E482E8ABFA8F8DBC446409C29,98F88B14614F6B25AF3BA53DC0F805CE,E8C79F1568133A3E3B9202E071972728,F33F5895AA3DF3D1EF2A5710D1CCB8BE,560E1EC0175A86A14CF0CCAEF5CE9DD5,18D343F47508C18F11FD0883FD6378ED,5CE379BA8F35CAE6ECD657CAF5EAF937,4E396912656EB1E1A9001BEEDF7BEA6D,A128BA359208C1621284C547EFC72ECC,372EF1CBB32EDCDC757D4A75021B8D1E,CC338469BEE9144A1CC9166B3576813A,64CA91CE05CF2F69395B4230436A7A3DLisansSonuOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.comtag:blogger.com,1999:blog-492144374384589996.post-72130056989822611622015-08-20T20:28:00.002-07:002019-07-29T03:41:09.451-07:00ODELPROJECT | Quiz Botu<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmnVGHY7_L26Bd8mrsiH4Mamddpow_qMXJHr3Fg0q1jaH_0ZMZ421BW2tTP_WdXjEA9IHXseDT1yNQV8dvGW5NNWe-DrmC3ovvRbqW1Q1GlMTfW9RPA-Zc2CpgORJSUBs1ZafFoeNOA-4y/s1600/quizbot.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmnVGHY7_L26Bd8mrsiH4Mamddpow_qMXJHr3Fg0q1jaH_0ZMZ421BW2tTP_WdXjEA9IHXseDT1yNQV8dvGW5NNWe-DrmC3ovvRbqW1Q1GlMTfW9RPA-Zc2CpgORJSUBs1ZafFoeNOA-4y/s1600/quizbot.png" /></a></div>
<br />
-2 Şekilde Quize Bağlama yöntemi vardır.(Tek Dashboard ile veya her kanalın ayrı dashboardı olacak şekilde ekleyebilirsiniz.<br />
-otomatik captcha geçme özelliği vardır.(Deathbycaptcha üyeliğiniz var ise)<br />
-Kanalın 10 abonesi yok ise videoyap hesabınızı bota eklerseniz aboneyi videoyap hesabınızdan tamamlar<br />
-Videoların Para kazanmalarını açabilirsiniz(Ara reklamlarına kadar açabilirsiniz)<br />
-Cookie Silme özelliği ve ip resetleme özelliği ile spamdan kapanma yaşamazsınız.<br />
-AutoClaim iptali sayesinde quiz sizin videolarınıza kendisi ara reklam eklemez.<br />
-Eşleşenli veya Dünya Engelli kanalların videolarını silme özelliği vardır.<br />
-Her kanalın ayrı dashboardı olmasını istiyorsanız isim,soyisim,adres,zip kodu,telefon numarası gibi bilgileri rastgele girebilen fonksiyon vardır.Bu yol ile quize farklı kimlikler ile kayıt olabilirsiniz.<br />
-Ayrı Dashboard ile kayıt edeceğiniz hesaplar için Webmoney bilgilerinizi eklemeniz yeterlidir.<br />
-Tek Dashboard özelliğini kullanırken dashboardınızdaki şifreyi yazmanız yeterlidir(Dashboarda girip add channel yapmanız için)<br />
<br />
<br />
<br />
<div style="text-align: center;">
<b>Fiyat: 1000TL</b><br />
<b>Ödemeler Paypal-Ziraat</b></div>
Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-57601648707006679642015-06-28T00:00:00.002-07:002019-07-29T03:43:08.799-07:00Dogum gününden kişinin yaşı nasıl hesaplanır<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><div>
<br /></div>
<pre style="background-color: #eeeeee; border: 1px dashed #999999; color: black; font-family: Andale Mono, Lucida Console, Monaco, fixed, monospace; font-size: 12px; line-height: 14px; overflow: auto; padding: 5px; width: 100%;"><code>'Text'i Date data türüne çevir
Dim Birth as Date
Birth = DateValue(txtDOB)
'Yasi hesapla
Dim Age as Integer
Age = Int(DateDiff("D", Birth, Now) / 365.25)</code></pre>
Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-31590873521452622972015-06-27T23:51:00.003-07:002019-07-29T03:42:47.013-07:00Visual Basic Clipboard'dan text kopyalama<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><div>
<br /></div>
<pre style="background-color: #eeeeee; border: 1px dashed #999999; color: black; font-family: Andale Mono, Lucida Console, Monaco, fixed, monospace; font-size: 12px; line-height: 14px; overflow: auto; padding: 5px; width: 100%;"><code>'Textbox'ta texti isaretle ve isaretlenen yeri clipboard'dan kopyaladiginla degistir:
txtBox.SelText = Clipboard.GetText
'Yada tüm text'i clipboarddan aldiginla degistir.
txtBox.Text = Clipboard.GetText
Clipboard'a text nasıl kopyalanir?
'Önce clipboard'u temizle
Clipboard.Clear
'Sonra kopyalanacak alani seç ve clipboard'a kopyala
Clipboard.SetText txtBox.Text, vbCFText</code></pre>
Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-25974162925750469682015-06-27T23:15:00.002-07:002019-07-29T03:43:20.244-07:00Textbox ve Combobox için Undo (geri al) fonksiyonu nasıl kullanilir<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><div>
<br /></div>
<pre style="background-color: #eeeeee; border: 1px dashed #999999; color: black; font-family: Andale Mono, Lucida Console, Monaco, fixed, monospace; font-size: 12px; line-height: 14px; overflow: auto; padding: 5px; width: 100%;"><code> 'Bir Windows API undo islemi yapar
'asagidaki deklerasyonlari yaz
Declare Function SendMessage Lib "User" (ByVal hWnd As _
Integer, ByVal wMsg As Integer, ByVal wParam As _
Integer, lParam As Any) As Long
'asagidaki degismezleri yaz
Global Const WM_USER = &h400
Global Const EM_UNDO = WM_USER + 23
' Undo Sub 'lara asagidaki kodu yaz
UndoResult = SendMessage(myControl.hWnd, EM_UNDO, 0, 0)
'UndoResult = -1 olursa hata var demektir
'UndoResult sadece bir rakamdir ve hiç bir önemi yoktur. Sadece yer tutmasi için yazilir.
'VB'nin buna benzer gariplikleri vardir. Bir amaci varsa da ben bilmiyorum
</code></pre>
Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-74794820700292153252015-06-25T09:54:00.002-07:002019-07-29T03:43:34.441-07:00Videoyap Botu Programı<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="color: #38761d;">İndirme Linki</span></b><br />
<b><span style="color: #38761d;"><br /></span></b></div>
<div style="text-align: center;">
[Bot Sürüm:1.0.3]</div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<span style="color: #20124d; font-weight: bold;">>>></span><b><span style="color: #0b5394;"><a href="https://www.dropbox.com/s/7lub9okv7t7g1lb/videoyap.rar?dl=0" target="_blank">GÜNCEL EXE Yİ İNDİRMEK İÇİN TIKLAYIN</a><span id="goog_1037721061"></span><span id="goog_1037721062"></span><a href="https://www.blogger.com/"></a></span></b><span style="color: #20124d; font-weight: bold;"><<<</span></div>
<div class="separator" style="clear: both; text-align: center;">
<span style="color: red;">Son Güncelleme 29 Eylül 2017 11:40</span></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://i.hizliresim.com/GkkgZ2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://i.hizliresim.com/GkkgZ2.png" /></a></div>
<br />
<br />
<span style="background-color: #f5f5ff; font-family: "verdana" , "geneva" , "lucida" , "lucida grande" , "arial" , "helvetica" , sans-serif; font-size: 13.3333330154419px;">Videoyapa Kanalları Ekleme Bölümü</span><br />
<iframe allowfullscreen="true" frameborder="0" height="385" src="https://www.youtube.com/embed/SWcZmVCj1HE?wmode=transparent&fs=1&hl=en&modestbranding=1&iv_load_policy=3&showsearch=0&rel=1&theme=dark&hd=1" style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;" type="text/html" width="640"></iframe><br style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;" />
<br style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;" />
<br style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;" />
<span style="background-color: #f5f5ff; font-family: "verdana" , "geneva" , "lucida" , "lucida grande" , "arial" , "helvetica" , sans-serif; font-size: 13.3333330154419px;">Videoyap Kanallarınıza Otomatik YT to YT yapma</span><br />
<iframe allowfullscreen="true" frameborder="0" height="385" src="https://www.youtube.com/embed/NWj1c_3RlaQ?wmode=transparent&fs=1&hl=en&modestbranding=1&iv_load_policy=3&showsearch=0&rel=1&theme=dark&hd=1" style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;" type="text/html" width="640"></iframe><br style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;" />
<br style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;" />
<br />
<br />
<br />
<b><span style="color: #38761d;">Otomatik IP Reset için Desteklenen Modem Modelleri</span></b><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://i.hizliresim.com/2kkRPq.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://i.hizliresim.com/2kkRPq.png" /></a></div>
<br />
<br />
<b><span style="color: #38761d;">Botun özellikleri</span></b><br />
<b>-</b>Verdiğiniz gmail hesap listesini videoyapa ekler.<br />
-Tek program ile birden çok videoyap hesabı yönetme<br />
<b>-</b>Hesap ekleme işlemi sonrasında modeminize girerek ip resetler ve Cookie temizler.(Hızlı işlem)<br />
<b>-</b>Kanalları eklerken client listenizdeki her bir clienti sırasıyla kaçar adet kullanmasını istiyorsanız o kadar kullanır.Örnek : 5 olarak belirlerseniz önce bir client ile 5 kanal ekler ve diğer clienti kullanmaya başlar.<br />
<b>-</b>Eğer almış olduğunuz hesaplar gizli soru istiyorsa bunu bota belirtebilirsiniz(otomatik doldurur ve gmaile giriş sağlayabilir)<br />
<b>-</b>Bot yaptığı işlemleri Firefox tarayıcısı ile yapmaktadır.<br />
<b>-</b>Kanallara video yükleme özelliği ile toplu şekilde eklediğiniz kanal linklerini başlangıç sıranızdan itibaren kanal listenize emir verdirecek şekilde ekler.<br />
(örneğin 5 adet spamlık kanal buldunuz.bunları programa ekliyorsunuz.Videoyap kanallarınızdan kaçıncı sıradan yükleme yapılmasını istiyorsanız onu yazıyorsunuz.Spamlık kanal sayısı kadar kanalınıza video yükleme emri veriliyor)<br />
<b>-</b>Client Oluşturma Özelliği ile gmailleriniz ile otomatik client alıp txt ye kaydediyor.<br />
<b>-</b>Client ekle özelliği ile client oluşturma özelliğinin oluşturduğu client listesini videoyap hesabınıza otomatik ekliyorsunuz.<br />
<b>-</b>Videoyapın özelliklerinden özgünleştir,Çerçeve,Video Kırpma,Video Hızlandırma gibi seçenekleri seçebiliyorsunuz.<br />
<b>-</b>Videoyapın özelliği olan video yükleme aralığını bot ile ayarlayabiliyorsunuz.<br />
<b>-</b>Tek Videoyap Kanalına Birden Çok Kanaldaki Videoları yükleyebilme.<br />
<b>-</b>Arama ile Video yükleme bölümü eklendi ve geliştirildi.<br />
<b>-</b>Program Ayarlarını Kaydet Özelliği eklendi.Bu özellik sayesinde programı kaydettiğiniz ayarlar gibi tekrar kullanabileceksiniz.<br />
<b>-</b>Log sistemiyle Daha önceden ne yaptığınızı çok net biçimde görebilirsiniz.<br />
<b>-</b>Pc kapat özelliği ile işlemler bittiğinde bilgisayarı kapatır.<br />
<b style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;">-</b><span style="background-color: #f5f5ff; font-family: "verdana" , "geneva" , "lucida" , "lucida grande" , "arial" , "helvetica" , sans-serif; font-size: 13.3333330154419px;">Toplu Olarak kanalların Ünlem Geç,Ünlem Geç 2 ve Gizlilik Ayarlarını Yapabilirsiniz.</span><br />
<b style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;">-</b><span style="background-color: #f5f5ff; font-family: "verdana" , "geneva" , "lucida" , "lucida grande" , "arial" , "helvetica" , sans-serif; font-size: 13.3333330154419px;">Videoları Genele Otomatik alabilirsiniz.</span><br />
<b style="background-color: #f5f5ff; font-family: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; font-size: 13.3333330154419px;">-</b><span style="background-color: #f5f5ff; font-family: "verdana" , "geneva" , "lucida" , "lucida grande" , "arial" , "helvetica" , sans-serif; font-size: 13.3333330154419px;">Toplu Video Url si girip toplu yükleme yapabilirsiniz.</span><br />
<br />
Fiyat: 400TL Sınırsız Lisans<br />
(6 Ay Ücretsiz Güncelleme.Sonraki 6 ay içinde güncelleme ücreti 200liradır.)<br />
<br />
https://www.virustotal.com/tr/file/dd8d91393336f23fa8439152dd763f94e8d3e1473821c3d55b8d47b1fbc615e1/analysis/1441243618/Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-83243031337155034612015-06-25T02:34:00.003-07:002019-07-29T03:43:52.926-07:00Listbox'a bir text dosyasi içerigi nasıl yüklenir<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><br />
Private Sub Command1_Click()<br />
Dim BulunanKelimeler As String<br />
Open "C:\test.txt" For Input As #1<br />
List1.Clear<br />
While Not EOF(1)<br />
Input #1, StringHold<br />
List1.AddItem BulunanKelimeler<br />
Wend<br />
Close #1<br />
End SubOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-91900549929425940392015-06-25T02:34:00.001-07:002015-06-28T00:01:47.527-07:00Çalisma aninda Statusbar içerigi nasıl degistirilir<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a>Statusbar1.Panels(1).Text = "Ivir zivir"Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-35874764841798709142015-06-25T02:33:00.002-07:002019-07-29T03:49:49.631-07:00Text kutusunda olan degisiklik nasıl farkedilir<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><br />
'Amaç kullaniciyi yaptigi degisiklikler konusunda programi kapatmadan uyarmaktir.<br />
<br />
Public Degisti As Boolean 'Bu degisken textbox'ta herhangi bir degisiklik olup olmadigini tutar.<br />
Private Sub Text1_Change()<br />
Degisti= True<br />
End SubPrivate<br />
<br />
Sub Form_Unload(Cancel As Boolean)<br />
If Degisti Then<br />
If Msgbox("Degisiklikler kaydedilsin mi?", vbYesNo, "Kayit'") = vbYes Then<br />
'Buraya kaydetme ile ilgili kodlar gelecek<br />
Degisti = False<br />
' Degisti degerini tekrar False yap ki bir sonraki degisiklikte tekrar çalisabilsin. (Bu Önemli!!!!)<br />
'Bunu sadece buradaki If - End If blogu arasina yaz<br />
End If<br />
End If<br />
End SubOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-25253288432192397012015-06-25T02:32:00.004-07:002019-07-29T03:43:43.743-07:00Command butondan popup menü nasıl yapılır<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><br />
Öncelikle menü editör ile bir menü yaratin.<br />
Asagidaki gibi:<br />
<br />
Button Menu (Menu name: mnuBtn, Visible: False - Unchecked)<br />
....SubMenu Item 1 (Menu name: mnuSub, Index: 0)<br />
....SubMenu Item 2 (Menu name: mnuSub, Index: 1)<br />
....SubMenu Item 3 (Menu name: mnuSub, Index: 2)<br />
....SubMenu Item 4 (Menu name: mnuSub, Index: 3)<br />
<br />
<br />
ve bir tane de command button hazirlayin ve kodu yerlestirin:<br />
<br />
Private Sub mnuSub_Click(Index As Integer)<br />
<br />
Call MsgBox("Kliklenen menü: " & Index + 1, vbExclamation)<br />
<br />
End Sub<br />
<br />
Private Sub Command1_Click()<br />
Call PopupMenu(mnuBtn)<br />
End Sub<br />
<br />
Not: Isterseniz daha güzel etki için "Call PopupMenu(mnuBtn)" çagrisi yerine<br />
<br />
Call PopupMenu(Menu:=mnuBtn, X:=Command1.Left, Y:=Command1.Top + _<br />
Command1.Height)<br />
<br />
çagrisini yada;<br />
<br />
Call PopupMenu(mnuBtn, vbPopupMenuCenterAlign, Command1.Left + _<br />
(Command1.Width / 2), Command1.Top + Command1.Height)<br />
<br />
çagrisini kullanin.Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-52514618829997444412015-06-25T02:32:00.001-07:002019-07-29T03:49:28.568-07:00Text1 içerigi Text2 içine nasıl kopyalanir<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><br />
VB6.0 kullaniyorsaniz Replace Function ise yarar:<br />
<br />
Text2 = Replace(Text1, vbCrLf, "" & vbCrLf)<br />
<br />
Diger VB'lerde vbCrLf'leri bulmak için asagidaki kod kullanilir:<br />
<br />
Dim sString As String<br />
Dim sNewString As String<br />
sString = Text1<br />
While Instr(sString, vbCrLf)<br />
sNewString = sNewString & Left(sString, _<br />
Instr(sString, vbCrLf) - 1) & "" & vbCrLf<br />
sString = Mid(sString, Instr(sString, vbCrLf) + 2)<br />
Wend<br />
Text2 = sNewStringOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-33496617403335482072015-06-25T02:31:00.003-07:002019-07-29T03:49:17.188-07:00Sadece **** gösteren text kutusu nasıl yapılır<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a>Textbox'un PasswordChar property'sini "*" karakterine esleyin.Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-30539117376497760132015-06-25T02:31:00.001-07:002019-07-29T03:48:49.251-07:00Uyari isareti olan (X) mesaj kutusu nasıl yapılır<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a>MsgBox "Mesaj Buraya!!", vbCritical, "Önemli"Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-38874359590032347552015-06-25T02:30:00.006-07:002019-07-29T03:48:27.908-07:00Her dile uyumlu tarih nasıl formatlanir<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a>Command1.Caption = Format$(Date, "Short Date")Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-64164191104376395482015-06-25T02:30:00.004-07:002019-07-29T03:48:09.992-07:00Birden fazla sütun içeren combolar nasıl yapılır<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><br />
Projenize Microsoft Forms 2.0 control ekleyin, oradaki<br />
combo multi-column destekler.<br />
<br />
Combo1.Clear<br />
Combo1.ColumnCount = 2<br />
Combo1.ListWidth = "6 cm" 'Total genislik<br />
Combo1.ColumnWidths = "2 cm;4 cm" 'sütun genisligi<br />
Combo1.AddItem "Ivir zivir"<br />
Combo1.List(0, 1) = "Ivir zivir"Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-43634253600700012842015-06-25T02:30:00.002-07:002019-07-29T03:48:03.698-07:00Bir combo'nun içini diger bir combo'dan aldiklarinizla nasıl doldurursunuz<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><br />
Sub comboA_click()<br />
comboB.text = comboA.text<br />
End sub<br />
<br />
Eger ComboA'daki seçili degerlerin ComboB'ye aktarilmasini istiyorsaniz<br />
Sub comboA_click()<br />
comboB.AddItem comboA.text<br />
end subOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-33290223356904085112015-06-25T02:29:00.002-07:002019-07-29T03:47:57.438-07:00Joker karakterler kullanarak string nasıl aranır<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<br />
<a name='more'></a><br />
Dim Mystr As String<br />
Mystr = "Hakan"<br />
If Mystr Like "H*" Then<br />
MsgBox "Bulundu"<br />
Else<br />
MsgBox "Bulunamadi"<br />
End IfOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-59930449726883174842015-06-25T02:28:00.003-07:002019-07-29T03:47:50.913-07:00Dikine uzanan label nasıl yapılır<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgda44Tn8_jfzpo2lfuFe-KGuuZNLCUIE-1YVQWa_CnGq_iqXqCSVMsNBdFMwZM531zUoPjOYdYVB29Fi2SknIHpyZ6YJ7zw7i1xKpuf8oYuLDcIlAJG9wwlqFWzCWcQu0EzfgS_Vnrvu4/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgda44Tn8_jfzpo2lfuFe-KGuuZNLCUIE-1YVQWa_CnGq_iqXqCSVMsNBdFMwZM531zUoPjOYdYVB29Fi2SknIHpyZ6YJ7zw7i1xKpuf8oYuLDcIlAJG9wwlqFWzCWcQu0EzfgS_Vnrvu4/s320/vb6.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<a name='more'></a><br />
<div class="separator" style="clear: both; text-align: center;">
Private Sub Form_Activate()</div>
<div class="separator" style="clear: both; text-align: center;">
Dim s As String</div>
<div class="separator" style="clear: both; text-align: center;">
Label1.Caption = "Visual Basic 2000"</div>
<div class="separator" style="clear: both; text-align: center;">
For i = 1 To Len(Label1)</div>
<div class="separator" style="clear: both; text-align: center;">
s = s & Mid$(Label1, i, 1) & vbCrLf </div>
<div class="separator" style="clear: both; text-align: center;">
Next</div>
<div class="separator" style="clear: both; text-align: center;">
Label1 = s</div>
<div class="separator" style="clear: both; text-align: center;">
End Sub</div>
<div class="separator" style="clear: both; text-align: center;">
dikkat: Label'i dikine çekmelisiniz</div>
Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-42843634695263789802015-06-25T02:27:00.002-07:002019-07-29T03:47:43.297-07:00Text dosyasina çift tirnak işaretleri olmadan nasıl string girişi yapılır<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<a name='more'></a><br />
Write # statement yerine Print # statement kullan<br />
Print # statement stringlerin etrafina çift tirnak koymazOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-36028464102615260082015-06-25T02:26:00.001-07:002019-07-29T03:47:33.588-07:00Form close butonu nasıl çalistirilir<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s1600/vb6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6wZvSGCv7LdpjPhJEYuNNDQ13uoF9L_ygDC458U15JaM-b65LKpJq7ii68PEgl9wRr5zBnAtPoamhuzoH-u3St1yj-d8yLU2VtNwbfelYaozU7TYFWUEl8Y-FUiTDp0QAyE70XntMcs01/s320/vb6.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<a name='more'></a><br />
dim bClose as Boolean<br />
Form'un QueryUnload event'ine ekle:<br />
If bClose = false then cancel = trueOğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0tag:blogger.com,1999:blog-492144374384589996.post-53317393732449651482015-02-19T18:12:00.002-08:002019-07-29T03:47:27.215-07:00Google Servisini Kapattı<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHQXaTP5U_j0wkpg_jAPsP2qU_TIodydLe85HdsW6TlyahvVO428-zSxkeOHLPj_YU_BtmVh2F8X3LtIJj6J_TZ4EoaxbQN-Kw2k7dPVwL0gCetGWmDZFk4_FZjYz6JOI-nLAcBIiPbenn/s1600/1044096_620x410.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHQXaTP5U_j0wkpg_jAPsP2qU_TIodydLe85HdsW6TlyahvVO428-zSxkeOHLPj_YU_BtmVh2F8X3LtIJj6J_TZ4EoaxbQN-Kw2k7dPVwL0gCetGWmDZFk4_FZjYz6JOI-nLAcBIiPbenn/s1600/1044096_620x410.jpg" height="211" width="320" /></a></div>
<h2>
<b><br /></b></h2>
<h2>
<b>Google'ın ilgi görmeyen video servisi Helpouts 1 Nisanda kapanıyor.</b></h2>
<h3>
<span style="color: black;"><span style="color: black;"><a href="https://ekonomi.haberturk.com/etiket/google"><span style="color: black;">Google</span></a>'ın</span>, "nasıl yapılır" videoları servisi <a href="https://ekonomi.haberturk.com/etiket/helpouts"><span style="color: black;">Helpouts</span></a>, 1 Nisandan itibaren kapanıyor. İşinde uzman kişilerinin ücret karşılığında nasıl yapılır videoları hazırladığı <a href="https://ekonomi.haberturk.com/etiket/helpouts"><span style="color: black;">Helpouts</span></a>, kullanıcılardan yeterince ilgi görmedi.</span></h3>
Oğuz Delioğluhttp://www.blogger.com/profile/11753003368210300202noreply@blogger.com0