tag:blogger.com,1999:blog-69710425332108094582024-03-05T19:20:06.780-08:00VB.NET KOD ÖRNEKLERİ Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.comBlogger12125tag:blogger.com,1999:blog-6971042533210809458.post-53949192300228840812022-03-22T12:03:00.006-07:002023-06-16T08:04:43.589-07:00VB.Net Kodları ve EXE Linkleri
<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;"><b><span style="color: red;"> </span>Buradaki kodları Direk indirebilmek için<br /><a href="https://drive.google.com/file/d/1kUQIFargz8OC__ueaOtGElzYhElGvR3W/view?usp=drive_link" target="_blank">DİREKİNDİR</a></b></div><div class="separator" style="clear: both; text-align: center;"><br /></div><div class="separator" style="clear: both; text-align: center;"><div class="separator" style="clear: both;"><span style="color: #cc0000;"><b>LÜTFEN OKUYUN !</b></span></div><div class="separator" style="clear: both;"><span style="color: #cc0000;"><b><br /></b></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjURMl02mwp--s_u7xfRIZuxqUTN3LE9rEXQurq8feEiMG-yhKAxEFsaZLg_znIptxdthLYv-YkDyvn6tKjUyjsOZ5rm3eQ8eN826J1zpzhN1MueAp4_rIQ7ZeadOl2UpqfjriG9ebQXu8RdpnG7aG0C2i63uV2i0tqf08c4-cQZz4ez44r9EC6xhc/s694/Bilgi.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="666" data-original-width="694" height="307" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjURMl02mwp--s_u7xfRIZuxqUTN3LE9rEXQurq8feEiMG-yhKAxEFsaZLg_znIptxdthLYv-YkDyvn6tKjUyjsOZ5rm3eQ8eN826J1zpzhN1MueAp4_rIQ7ZeadOl2UpqfjriG9ebQXu8RdpnG7aG0C2i63uV2i0tqf08c4-cQZz4ez44r9EC6xhc/w530-h307/Bilgi.png" width="530" /></a></div><br /><div class="separator" style="clear: both;"><br /></div><div class="separator" style="clear: both;">Site linklerinden indirmek yerine üstteki programı indirin ve Dosya Yükleme kısmından içerisinde Kırık olmayan ve Onay istemeyen Linklere Tıkladığınızda Direk siteye gidecek ve o programı inidrmek için sayfa açılacaktır siz sadece INDIR düğmesine basacaksınız.</div><div class="separator" style="clear: both;"><br /></div><div class="separator" style="clear: both;"><span style="color: #2b00fe;">NOT </span>: linklerden indiremeyenler mesajla benden onay istemekteler. Bunun sebebi uzun süre indirilmeyen linkler site tarafından otomatikman kapatılır.</div><div class="separator" style="clear: both;">Ben ve paylaşım isteyenlere kolaylık olsun diye böyle bir yöntem gereği duydum.</div><div>******************************************</div><div><br /></div></div><div class="separator" style="clear: both; text-align: center;"><b><span style="color: red;">VB.Net Örnek </span></b><b><span style="color: red;"> </span><span style="color: #2b00fe;">EXE</span><span style="color: red;"> </span></b><b><span style="color: red;">projeler</span></b></div></div><div style="text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVipRDBW3iUelRQI_tXwpG7rZowas7842voWc83oGhz_cEIFjjVUXWJvNsOA0Du27hjYWfa54SLoRa_JvGcJ3SLEDspNumt-dXIcsQn-btbyBURGuBLk20ld5gPEaZpBgmcrfq-AFtECQ/s1600/D%25C3%25B6nen_Download.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="56" data-original-width="150" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVipRDBW3iUelRQI_tXwpG7rZowas7842voWc83oGhz_cEIFjjVUXWJvNsOA0Du27hjYWfa54SLoRa_JvGcJ3SLEDspNumt-dXIcsQn-btbyBURGuBLk20ld5gPEaZpBgmcrfq-AFtECQ/s1600/D%25C3%25B6nen_Download.gif" /></a></div></div></div></div></div></div>
<table bgcolor="" border="2" cellpadding="3" cellspacing="1" style="height: 200px; text-align: left;">
<tbody>
<tr>
<td style="text-align: left;"><span style="color: #cc0000;">Program adı ve açıklamalar</span></td>
<td style="text-align: left;"> <span style="color: #2b00fe;">Proje İndirme linki ve Güncel tarihi</span></td>
</tr>
<tr>
<td><div style="text-align: left;"><span>DESKTOP POPUP MENÜSÜNE UYGULAMA EKLE_EXE</span></div></td>
<td style="text-align: left;"><div style="text-align: left;"><span><span><span style="text-align: center;"><a href="https://drive.google.com/file/d/1zjmQE-rmmmEp6uIDA15hJLj6xozCbZNV/view?usp=sharing" target="_blank">İNDİR </a> <span style="color: red;">15.03.2022</span></span></span><span><span style="color: red;"> </span></span><span style="color: red;"> </span></span></div></td>
</tr>
<tr></tr>
<tr>
<td><div style="text-align: left;"><span>DUVAR KAĞIDI EKLE_EXE</span></div></td>
<td><span><span><span><span><a href="https://drive.google.com/file/d/1zjmQE-rmmmEp6uIDA15hJLj6xozCbZNV/view?usp=sharing" target="_blank">İNDİR</a> </span></span></span><span><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span><span style="color: red;"> </span></span><span style="color: red;"> </span></span></td>
</tr>
<tr>
<td style="text-align: left;"><span>EAMPLAYER_8.8.1.4_EXE</span></td>
<td style="text-align: left;"><span><span><a href="https://drive.google.com/file/d/1gYANG4mEYgNZfBR_11PNqwL8d3A-B1x3/view?usp=sharing" target="_blank">İNDİR</a> </span><span> <span style="color: red;"><span style="color: black;"><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span style="color: black;"><span style="color: red;"> </span></span> </span></span></span></td>
</tr>
<tr>
<td style="text-align: left;"><span style="text-align: center;">EKRAN KALKANI-V1.0.2.2_EXE</span></td>
<td><span><span><span><a href="https://drive.google.com/file/d/1_wZuRCbapJjzDfVQFn8xoAF2x1MW61Va/view?usp=sharing" target="_blank">İNDİR<span style="text-align: left;"> </span></a> <span style="color: red; text-align: left;"><span style="color: black;"><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span style="color: black;"><span style="color: red;"> </span></span> </span></span> </span> </span></td>
</tr>
<tr>
<td><span>EKRAN YAKALA_EXE </span></td>
<td style="text-align: left;"><span><span><a href="https://drive.google.com/file/d/19SuIca6VzkisTOxDhB9RPMjzvP09gwUB/view?usp=sharing" target="_blank">İNDİR</a> </span><span> </span><span><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span><span style="color: red;"> </span></span><span style="color: red;"> </span></span></td>
</tr>
<tr>
<td><span>ERASFM_2.0.2.2_EXE</span></td><td><span><span><a href="https://drive.google.com/file/d/1rPXGmCcv9eexYeTe73116xYrn75goFi_/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;"><span style="color: black;"><span style="text-align: center;"><span style="color: red;">15.03.2022 </span></span></span></span></span></td>
</tr>
<tr>
<td><span>ERASMP_2.0.2.3_EXE</span></td>
<td><span><a href="https://drive.google.com/file/d/1D8aAW_f2ntFPiXs-2LSvfYXYp-Hm0_Sk/view?usp=sharing" target="_blank"><span>İNDİR</span></a> <span><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span><span style="color: red;"> </span></span><span style="color: red;"> </span></span></td>
</tr>
<tr>
<td><span>ERASMP_RADYO DATALI_V4.0.2.35_EXE </span></td>
<td><span><span><a href="https://drive.google.com/file/d/15IZlByfg5BIhEh67mdeQSkkMNX-dPPOA/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>ERNOTE_3.1.2.922_FW.4.5_EXE</span></td>
<td><span><span><a href="https://drive.google.com/file/d/1pQqdTdXwNDqjmmwtIUac0uRqXHqncbUE/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>EXE 'DEN ICON AL_EXE </span></td><td><span><span><a href="https://drive.google.com/file/d/1E_sH7ObK5U5dw2_l1hVkk1NR-0Ssl8y3/view?usp=sharing" target="_blank">İNDİR</a> <span style="color: red;"> </span></span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>GÖREV PLANLAMA_EXE_V4.0.2.2 </span></td>
<td><span><span><a href="https://drive.google.com/file/d/19sgSlwWBMTSimvlqwC2uZETtK9p3cW9k/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>KISAYOL OLUŞTUR_EXE </span></td>
<td><span><span><a href="https://drive.google.com/file/d/1t84ykNndgoH7GKVqhRjHmCkafg9qOVe4/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;"> <span>15.03.2022</span></span></span></td>
</tr>
<tr>
<td><span>LİNKDEPOSU_3.2.2.95_EXE </span></td>
<td><span><span><a href="https://drive.google.com/file/d/16odWE6gu7p7N3M--oO2CmVZb51gho6R_/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>LW_MP3_2.5.1.3_EXE </span></td>
<td><span><a href="https://drive.google.com/file/d/1ufbi02J59xy3RlcYRnXl3XoxOt7OhhX8/view?usp=sharing" target="_blank"><span>İNDİR</span> </a> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>NOTEKRİPTO_4.0.1.7_EXE </span></td>
<td><span><span><a href="https://drive.google.com/file/d/1FviZxDG_BJXZ-B6YSp9KcQK9cW0zEIsP/view?usp=sharing" target="_blank">İNDİR</a></span><span> </span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span><span>REGİSTEREOKUYAZ_EXE </span><br /></span></td>
<td><span><span><a href="https://drive.google.com/file/d/1HIntSTd56qSYdAHyK4UxK6NY_dWiDvkx/view?usp=sharing" target="_blank">İNDİR</a></span><span> </span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span><span>WIN10 KONTROL-16.04.2020_EXE </span><br /></span></td><td><span><span><a href="https://drive.google.com/file/d/18dnshzp3jjcNAVotYCJwWDdt8rGyHqkl/view?usp=sharing" target="_blank">İNDİR</a></span><span> </span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span><span>YAPIŞKAN NOTLAR_EXE</span><br /></span></td><td><span><span><a href="https://drive.google.com/file/d/1uS1wNJG1POkEUn9aog9OLXPZjW7E0TyT/view?usp=sharing">İNDİR</a></span><span> </span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td></td><td><br /></td>
</tr>
<tr>
<td> DİREK İNDİR.EXE</td>
<td><a href="https://drive.google.com/file/d/1kUQIFargz8OC__ueaOtGElzYhElGvR3W/view?usp=sharing" target="_blank">İNDİR</a></td>
</tr>
<tr>
<td> DİREK İNDİR.EXE<br /></td><td><a href="https://drive.google.com/file/d/1kUQIFargz8OC__ueaOtGElzYhElGvR3W/view?usp=sharing" target="_blank">https://drive.google.com/file/d/1kUQIFargz8OC__ueaOtGElzYhElGvR3W/view?usp=sharing</a></td>
</tr>
</tbody>
</table><br /><br />
<hr />
<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;"><b><span style="color: red;">VB.Net Proje </span><span style="color: #2b00fe;">KOD</span><span style="color: red;"> Örnekleri</span></b></div></div><div style="text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVipRDBW3iUelRQI_tXwpG7rZowas7842voWc83oGhz_cEIFjjVUXWJvNsOA0Du27hjYWfa54SLoRa_JvGcJ3SLEDspNumt-dXIcsQn-btbyBURGuBLk20ld5gPEaZpBgmcrfq-AFtECQ/s1600/D%25C3%25B6nen_Download.gif" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="56" data-original-width="150" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVipRDBW3iUelRQI_tXwpG7rZowas7842voWc83oGhz_cEIFjjVUXWJvNsOA0Du27hjYWfa54SLoRa_JvGcJ3SLEDspNumt-dXIcsQn-btbyBURGuBLk20ld5gPEaZpBgmcrfq-AFtECQ/s1600/D%25C3%25B6nen_Download.gif" /></a></div></div></div></div></div></div>
<table bgcolor="" border="2" cellpadding="3" cellspacing="1" style="height: 200px; text-align: left;">
<tbody>
<tr>
<td style="text-align: left;"><span style="color: #cc0000;">Program adı ve açıklamalar</span></td>
<td style="text-align: left;"> <span style="color: #2b00fe;">Proje İndirme linki ve Güncel tarihi</span></td>
</tr>
<tr>
<td><div style="text-align: left;"><span>DESKTOP POPUP MENÜSÜNE UYGULAMA EKLE_KOD</span></div></td>
<td style="text-align: left;"><div style="text-align: left;"><span><span><span style="text-align: center;"><a href="https://drive.google.com/file/d/1JLuZiAOaueWRc5fqSocdSuv58dLakT01/view?usp=sharing" target="_blank">İNDİR</a> <span style="color: red;">15.03.2022</span></span></span><span><span style="color: red;"> </span></span><span style="color: red;"> </span></span></div></td>
</tr>
<tr></tr>
<tr>
<td><div style="text-align: left;"><span><span>DUVAR KAĞIDI EKLE</span>_KOD</span></div></td>
<td><span><span><span><span><a href="https://drive.google.com/file/d/14FCUvFOjo7MSz_FQgaVE_l2VXMp5cR-B/view?usp=sharing" target="_blank">İNDİR</a> </span></span></span><span><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span><span style="color: red;"> </span></span><span style="color: red;"> </span></span></td>
</tr>
<tr>
<td style="text-align: left;"><span><span>EAMPLAYER_8.8.1.4</span>_KOD</span></td>
<td style="text-align: left;"><span><span><a href="https://drive.google.com/file/d/1PoTs6haPrQiJk5YJkgn5lgwrW2WcsaZg/view?usp=sharing" target="_blank">İNDİR</a> </span><span> <span style="color: red;"><span style="color: black;"><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span style="color: black;"><span style="color: red;"> </span></span> </span></span></span></td>
</tr>
<tr>
<td style="text-align: left;"><span><span style="text-align: center;">EKRAN KALKANI-V1.0.2.2</span>_KOD</span></td>
<td><span><span><span><a href="https://drive.google.com/file/d/1N-Hnj8aZQH1GhRltsRKNKjTjvf7sHb9t/view?usp=sharing" target="_blank">İNDİR</a><span style="text-align: left;"> </span> <span style="color: red; text-align: left;"><span style="color: black;"><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span style="color: black;"><span style="color: red;"> </span></span> </span></span> </span> </span></td>
</tr>
<tr>
<td><span>EKRAN YAKALA_KOD </span></td>
<td style="text-align: left;"><span><span><a href="https://drive.google.com/file/d/18Izp-1hls78N4yRopV8T2tSd05Pa6Gum/view?usp=sharing" target="_blank">İNDİR</a> </span><span> </span><span><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span><span style="color: red;"> </span></span><span style="color: red;"> </span></span></td>
</tr>
<tr>
<td><span><span>ERASFM_2.0.2.2</span>_KOD</span></td><td><span><a href="https://drive.google.com/file/d/1K1ud_ytttfB2QZH_h-sYMGwDx4OEn9Ai/view?usp=sharing" target="_blank"><span>İNDİR</span> </a> <span style="color: red;"><span style="color: black;"><span style="text-align: center;"><span style="color: red;">15.03.2022 </span></span></span></span></span></td>
</tr>
<tr>
<td><span><span>ERASMP_2.0.2.3</span>_KOD</span></td>
<td><span><span><a href="https://drive.google.com/file/d/1D3HF_ZV7sCUbaeF8XXVwaZjeMZzgHdKF/view?usp=sharing" target="_blank">İNDİR</a></span> <span><span style="text-align: center;"><span style="color: red;">15.03.2022</span></span></span><span><span style="color: red;"> </span></span><span style="color: red;"> </span></span></td>
</tr>
<tr>
<td><span>ERASMP_RADYO DATALI_V4.0.2.35_KOD </span></td>
<td><span><span><a href="https://drive.google.com/file/d/1JeR82Alsqs6-NjWwPy8YXR_BQZVEcrTr/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span><span>ERNOTE_3.1.2.922_FW.4.5</span>_KOD</span></td>
<td><span><a href="https://drive.google.com/file/d/1meQxzs_tXKbHEWbbzCtIDsCtdhpD6xYr/view?usp=sharing" target="_blank"><span>İNDİR</span> </a> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span><span>EXE 'DEN ICON AL</span>_KOD</span></td><td><span><span><a href="https://drive.google.com/file/d/1ZpMwrR24Bqf9tIQnLGkUVOjiXaVWg-MF/view?usp=sharing" target="_blank">İNDİR</a> <span style="color: red;"> </span></span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>GÖREV PLANLAMA_KOD_V4.0.2.2 </span></td>
<td><span><span><a href="https://drive.google.com/file/d/1UPW99qAxeNT-1pDmXRl54JvU8OmoQaj-/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>KISAYOL OLUŞTUR_KOD </span></td>
<td><span><span><a href="https://drive.google.com/file/d/1yYYuMjUOGry_hV7sSj-2S8Ib09CYHKwO/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;"> <span>15.03.2022</span></span></span></td>
</tr>
<tr>
<td><span>LİNKDEPOSU_3.2.2.95_KOD </span></td>
<td><span><span><a href="https://drive.google.com/file/d/10JOlN1hx21fcdG3jK42M1sAV8NpRRH6l/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>LW_MP3_2.5.1.3_KOD </span></td>
<td><span><span><a href="https://drive.google.com/file/d/1GEwQ1JX9N9CZDQMmX33-SKvMm1ruaIxd/view?usp=sharing" target="_blank">İNDİR</a></span> <span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>NOTEKRİPTO_4.0.1.7_KOD </span></td><td><span><span><a href="https://drive.google.com/file/d/18R54PIvnAet8B5ZaLFBfCf47qr_EHIxL/view?usp=sharing" target="_blank">İNDİR</a></span><span> </span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span>REGİSTEREOKUYAZ_KOD </span></td><td><span><span><a href="https://drive.google.com/file/d/1QBDVEqugb0iIY0S3YRfuqLw5RBfPofW6/view?usp=sharing" target="_blank">İNDİR</a></span><span> </span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span><span>WIN10 KONTROL-16.04.2020</span><span>_KOD</span></span></td>
<td><span><span><a href="https://drive.google.com/file/d/1lSeOMlG-PEyxrWE-kKfuP20hTvujmZlQ/view?usp=sharing" target="_blank">İNDİR</a></span><span> </span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td><span><span>YAPIŞKAN NOTLAR</span><span>_KOD</span></span></td><td><span><span><a href="https://drive.google.com/file/d/1RniNFegKVhldEV7qTefsvpH_Ovde2OOa/view?usp=sharing">İNDİR</a></span><span> </span><span style="color: red;">15.03.2022</span></span></td>
</tr>
<tr>
<td></td>
<td><br /></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</tbody>
</table><br />
<hr />Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0tag:blogger.com,1999:blog-6971042533210809458.post-71913524669553590292019-12-09T11:39:00.001-08:002020-01-01T07:36:13.483-08:00Leonardo Vinci ve Mona Lisa<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaOqK_aUA86x_vf2agL328gVG_aeVJ0ng39i6jm0zAGEedr07kdvPiySKvNrgiRaMBDcqJyys0o0oneLa7jc6h2DSgmVrcIumg324HFgRewkv_hoGbyHgX_fOrhJATECEOH8UkdkfYK9s/s1600/Mona_Lenardo+Vinci_LOGOLU_BB.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1161" data-original-width="1600" height="464" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaOqK_aUA86x_vf2agL328gVG_aeVJ0ng39i6jm0zAGEedr07kdvPiySKvNrgiRaMBDcqJyys0o0oneLa7jc6h2DSgmVrcIumg324HFgRewkv_hoGbyHgX_fOrhJATECEOH8UkdkfYK9s/s640/Mona_Lenardo+Vinci_LOGOLU_BB.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilncHpRTcNbabV49gISxEsGn7TLciPUGz-pw_h-QtPvrbgyvpUelAdZNDLfeKVoWln185eHmv-HrS4URPag1iyBwbXis-fHlfn4WPw0ffazXUyCOchndDy-DjUsAb84ANw0AJ7GmRNetQ/s1600/A%25C3%25A7%25C4%25B1l%25C4%25B1p_Kapanan_%25C3%2587i%25C3%25A7ek_YananBen.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="320" data-original-width="240" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilncHpRTcNbabV49gISxEsGn7TLciPUGz-pw_h-QtPvrbgyvpUelAdZNDLfeKVoWln185eHmv-HrS4URPag1iyBwbXis-fHlfn4WPw0ffazXUyCOchndDy-DjUsAb84ANw0AJ7GmRNetQ/s640/A%25C3%25A7%25C4%25B1l%25C4%25B1p_Kapanan_%25C3%2587i%25C3%25A7ek_YananBen.gif" width="480" /></a></div>
<br /></div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0tag:blogger.com,1999:blog-6971042533210809458.post-15467802310937768002019-05-07T02:21:00.002-07:002019-05-07T02:21:28.868-07:00RESİM BOYUTLANDIRMA, KIRPMA, DRAGDROP, TAŞIMA KOD ÖRNEĞİ<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
RESİM BOYUTLANDIRMA, KIRPMA, DRAGDROP İLE YÜKLEME , TAŞIMA KOD ÖRNEĞİ</div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifBtYptNMWVfhyphenhyphen2epjnaQyJV8teKZyZdKZZtfQ37b1MLTjlhv1UVTEvcNE6wfPBFc_RFFbJwAcSNL7gNzAOBw9bsjiouXuL1badpogRshc7HUEt2WhaZlOad5beDuLd8A_8su6ZWCoMTE/s1600/Ekran+Al%25C4%25B1nt%25C4%25B1s%25C4%25B1.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="468" data-original-width="727" height="410" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifBtYptNMWVfhyphenhyphen2epjnaQyJV8teKZyZdKZZtfQ37b1MLTjlhv1UVTEvcNE6wfPBFc_RFFbJwAcSNL7gNzAOBw9bsjiouXuL1badpogRshc7HUEt2WhaZlOad5beDuLd8A_8su6ZWCoMTE/s640/Ekran+Al%25C4%25B1nt%25C4%25B1s%25C4%25B1.PNG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJNrleQcojkTtZ9GQnTbEiPalQFTLyvNYiA9tkVmOvHwC0Qm6lNoxNugSulp5xaoBkAEodK9yXtXQDnnKamITWt1pTJwmbmLE88ePOAQ-XjuO4G_FWNbzN6zzNKdHdhV7VW4rbNidaXn0/s1600/k%25C4%25B1rp%25C4%25B1lan.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="362" data-original-width="334" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJNrleQcojkTtZ9GQnTbEiPalQFTLyvNYiA9tkVmOvHwC0Qm6lNoxNugSulp5xaoBkAEodK9yXtXQDnnKamITWt1pTJwmbmLE88ePOAQ-XjuO4G_FWNbzN6zzNKdHdhV7VW4rbNidaXn0/s640/k%25C4%25B1rp%25C4%25B1lan.PNG" width="590" /></a></div>
<br />
ResimBoyutlandır_Kırp_KOD <a href="https://www.dosyaupload.com/aszS" target="_blank">İNDİR</a><br />ResimBoyutlandır_Kırp_EXE <a href="https://www.dosyaupload.com/aszR" target="_blank">İNDİR</a></div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com1tag:blogger.com,1999:blog-6971042533210809458.post-58348874204890333532018-11-09T12:04:00.002-08:002018-11-09T12:04:48.113-08:0021 OYUNU (Black Jack)<div dir="ltr" style="text-align: left;" trbidi="on">
21 oyununu sevenler; Bilgisayarda oynayın<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQm94xJ7-8aR1Cs4Xflg74u0a9y-dfIiZpNfVsoNZVfoq-0Af8TLDmd3pitbYVzGIkLKg1Qppc4DFah_MPg80BnyRCfmfvoY1jAuhhpHkyD4PVEu2JdZtqsKUj68kQOkhO6-JdzRxAlew/s1600/21.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="602" data-original-width="873" height="440" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQm94xJ7-8aR1Cs4Xflg74u0a9y-dfIiZpNfVsoNZVfoq-0Af8TLDmd3pitbYVzGIkLKg1Qppc4DFah_MPg80BnyRCfmfvoY1jAuhhpHkyD4PVEu2JdZtqsKUj68kQOkhO6-JdzRxAlew/s640/21.png" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><br /></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="color: red;">21 Oyunu (BlackJack) EXE </span> <a href="https://www.dosyaupload.com/ee1j" target="_blank">İNDİR</a></span></b></div>
</div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0tag:blogger.com,1999:blog-6971042533210809458.post-8245679875982922782018-04-22T01:50:00.004-07:002022-01-27T02:55:28.660-08:00Müzik Çalar İndir<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="font-size: 13.3333px; margin-left: auto; margin-right: auto; text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
<a href="http://www.computest.com.tr/#cihazlar"><img alt="http://www.computest.com.tr/#cihazlar" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEge_LW15BwZOgDFCBrMY6iZodyYjrGaqG4AARpYIh4FmFpIsYzjpKtuSfnX0sMKvaIKBCx-ODVOOpc_kMJHbwyQCVY_oxUpVLiPtOuqQrfn_VoUkfgyWc32XsYLBTkCEPcJDOxdFz3-yA/s1600/Computest_Logo.png" /></a></div>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEge_LW15BwZOgDFCBrMY6iZodyYjrGaqG4AARpYIh4FmFpIsYzjpKtuSfnX0sMKvaIKBCx-ODVOOpc_kMJHbwyQCVY_oxUpVLiPtOuqQrfn_VoUkfgyWc32XsYLBTkCEPcJDOxdFz3-yA/s1600/Computest_Logo.png"></a></div>
<br />
<hr />
<div style="background-color: #dfdfdf; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 14.85px; text-align: center;">
<span style="color: red;"><span style="color: blue;">Güncelleme : </span>21.01.2022<br /><span style="font-size: medium; font-weight: bold;">ErAsMP_EXE M</span><span style="font-size: medium; font-weight: bold;">üzik Çalar </span><b style="font-size: x-large;"> </b><span style="font-size: medium; font-weight: bold;"><b> <a href="https://drive.google.com/file/d/1A9NVHsE2oA9Xcb5cMD5hWrKLbqCL-iPk/view?usp=sharing" style="color: #a83eff; text-decoration-line: none;" target="_blank">İNDİR</a></b></span></span></div>
<div style="background-color: #dfdfdf; font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: 14.85px; text-align: center;">
<span style="font-size: medium;">ErAsMP_V2.0.2.3_KOD</span><span style="font-size: medium;"> </span> Güncelleme 21.01.2022<b style="color: red;"> </b><span style="color: red; font-size: medium; font-weight: bold;"><a href="https://drive.google.com/file/d/1Ng1AQ3r7bFdFxlxP4y0fwld3iFdxffxp/view?usp=sharing" style="color: #a83eff; text-decoration-line: none;" target="_blank">İNDİR</a></span></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhp9QMQHTKlZulL5qKJOHk9GPdPMNS-RnC2jcH1b917qthUrI0RPg7iIEIt1VrqA0UNqIJB_imfFj8aiMJCQNXP0kYyN64kNKxTHf53BuxMvbV66nVkX3eJUcKBkZFoP8nhtAfPOABi4E/s1600/ErAsMP4.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="458" data-original-width="741" height="395" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhp9QMQHTKlZulL5qKJOHk9GPdPMNS-RnC2jcH1b917qthUrI0RPg7iIEIt1VrqA0UNqIJB_imfFj8aiMJCQNXP0kYyN64kNKxTHf53BuxMvbV66nVkX3eJUcKBkZFoP8nhtAfPOABi4E/s640/ErAsMP4.png" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGfVUGAhLfhaGAn80DcXeukDRikXUa6AtgBiI7rgLOgy0_8kwUlRhdh9bEdzs8R2C9PekkvzccvsHh5pWAv-mBijguVfrh48XcUrCPkzZLkR9ZLw5Dda_JJeDdv0A6C2iE_wO_P4rm-8I/s1600/ErAsMP.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="395" data-original-width="280" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGfVUGAhLfhaGAn80DcXeukDRikXUa6AtgBiI7rgLOgy0_8kwUlRhdh9bEdzs8R2C9PekkvzccvsHh5pWAv-mBijguVfrh48XcUrCPkzZLkR9ZLw5Dda_JJeDdv0A6C2iE_wO_P4rm-8I/s640/ErAsMP.png" width="452" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgNqVXoRB_yJu5N4YfmZC9S3iL2_7Y8iKCgI7ihFJi8xlOnn12a5-1-MltZyZeiSvtDKw-GBkcfJt0-ZHjjifAAiSdK4kPD2DxHMn8xnpSsjmgygYtnPA0krO_YingyckDlS9JSHAvFgvE/s1600/ErAsMP2.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="395" data-original-width="280" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgNqVXoRB_yJu5N4YfmZC9S3iL2_7Y8iKCgI7ihFJi8xlOnn12a5-1-MltZyZeiSvtDKw-GBkcfJt0-ZHjjifAAiSdK4kPD2DxHMn8xnpSsjmgygYtnPA0krO_YingyckDlS9JSHAvFgvE/s640/ErAsMP2.png" width="451" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-70IQE873pOzn5CU7ViMBL1QJvIYDu1nMVsgnRTlkZKS3zHpX4oPYRjBlA4FkstAIegp_6Ro4gAnIhXAXQCLWriffasZfcY4QTQ3dl7iDk_iJaQSfdAsK8cZFxEkGYA2PiEcnwl6d7Zg/s1600/ErAsMP3.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="395" data-original-width="280" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-70IQE873pOzn5CU7ViMBL1QJvIYDu1nMVsgnRTlkZKS3zHpX4oPYRjBlA4FkstAIegp_6Ro4gAnIhXAXQCLWriffasZfcY4QTQ3dl7iDk_iJaQSfdAsK8cZFxEkGYA2PiEcnwl6d7Zg/s640/ErAsMP3.png" width="452" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
</div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0tag:blogger.com,1999:blog-6971042533210809458.post-9801622707624000592017-01-22T02:17:00.004-08:002022-01-21T01:30:39.100-08:00DNS AYAR PROGRAMI<div dir="ltr" style="text-align: left;" trbidi="on">
<a href="http://www.computest.com.tr/#cihazlar" target="_blank" title="COMPUTEST SİTESİ İÇİN TIKLA"><img border="0" height="200" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEge_LW15BwZOgDFCBrMY6iZodyYjrGaqG4AARpYIh4FmFpIsYzjpKtuSfnX0sMKvaIKBCx-ODVOOpc_kMJHbwyQCVY_oxUpVLiPtOuqQrfn_VoUkfgyWc32XsYLBTkCEPcJDOxdFz3-yA/s1600/Computest_Logo.png" width="500" /></a> <br />
<br />
<hr />
<div style="text-align: center;">
<b><span style="color: #cc0000;">DNS AYAR PROGRAMI_KOD </span></b> <b><a href="https://drive.google.com/file/d/1Rz77OP9j4ut5Cvi2ujIzyVuxFOo8JN8f/view?usp=sharing" rel="nofollow" target="_blank">İNDİR</a></b><br /><br />
<b><span style="color: blue;">Güncelleme Tarihi : 11.11.2018 </span></b> <br />
</div>
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgCHRvUgID7Gn8aKefpsunsU6Qg5bGpcpBZsw5ppE6o5WyKgxkHmm2n9RKyur9K1OewuPtdJDLT3taoMvh7hZSB7HhDECdmJ-G_4EwdQ1CqOGq1IcLpwhE-CGJ3yavowrzYdgSZyANtzJs/s1600/dns.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="539" data-original-width="576" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgCHRvUgID7Gn8aKefpsunsU6Qg5bGpcpBZsw5ppE6o5WyKgxkHmm2n9RKyur9K1OewuPtdJDLT3taoMvh7hZSB7HhDECdmJ-G_4EwdQ1CqOGq1IcLpwhE-CGJ3yavowrzYdgSZyANtzJs/s1600/dns.png" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<b>Kod:</b><br />
<textarea class="bginput" cols="42" name="ERDOĞAN ASLAN" onclick="this.focus();this.select()" rows="5" style="height: 320px; margin: 0px; width: 606px;">Imports System.Xml
Imports System.Xml
Imports System
Imports System.Text
Imports Microsoft.Win32 'Register için
' Kayıtlı DNS 'yi Okuma için
Imports System.Net.NetworkInformation
Imports System.Net
'
Imports System.Runtime.InteropServices 'PANO
Public Class AnaForm
#Region "Değişken Tanımları "
Inherits System.Windows.Forms.Form
'Public dns1, dns2 As String
Public yer As Integer
Public eleman As ListViewItem
Friend WithEvents DugmeLst As System.Windows.Forms.ImageList
Friend WithEvents LwDNS As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents LstGüncelleBtn As System.Windows.Forms.Button
Friend WithEvents SaklaBtn As System.Windows.Forms.Button
Friend WithEvents SilBtn As System.Windows.Forms.Button
Friend WithEvents DnsNotu As System.Windows.Forms.TextBox
Friend WithEvents DnsGosterBtn As System.Windows.Forms.Button
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents AgMerkeziBtn As System.Windows.Forms.Button
Friend WithEvents PMrkLbl As System.Windows.Forms.Label
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents KayitSilBtn As System.Windows.Forms.Button
Friend WithEvents DnsAlBtn As System.Windows.Forms.Button
Friend WithEvents DNS1_txt As System.Windows.Forms.TextBox
Friend WithEvents DNS2_txt As System.Windows.Forms.TextBox
Friend WithEvents Lw_EkleBtn As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents SecilenIndex As System.Windows.Forms.TextBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictBul As System.Windows.Forms.PictureBox
#End Region
#Region " Form Tasarım üretim Kodları "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
Private components As System.ComponentModel.IContainer
'Required by the Windows Form Designer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AnaForm))
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.DugmeLst = New System.Windows.Forms.ImageList(Me.components)
Me.LwDNS = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.PictBul = New System.Windows.Forms.PictureBox()
Me.Lw_EkleBtn = New System.Windows.Forms.Button()
Me.LstGüncelleBtn = New System.Windows.Forms.Button()
Me.DNS2_txt = New System.Windows.Forms.TextBox()
Me.SaklaBtn = New System.Windows.Forms.Button()
Me.DNS1_txt = New System.Windows.Forms.TextBox()
Me.SilBtn = New System.Windows.Forms.Button()
Me.DnsNotu = New System.Windows.Forms.TextBox()
Me.DnsGosterBtn = New System.Windows.Forms.Button()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.AgMerkeziBtn = New System.Windows.Forms.Button()
Me.PMrkLbl = New System.Windows.Forms.Label()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.Label1 = New System.Windows.Forms.Label()
Me.KayitSilBtn = New System.Windows.Forms.Button()
Me.DnsAlBtn = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.SecilenIndex = New System.Windows.Forms.TextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.PictBul, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SaveFileDialog1
'
Me.SaveFileDialog1.FileName = "Doküman1"
'
'DugmeLst
'
Me.DugmeLst.ImageStream = CType(resources.GetObject("DugmeLst.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.DugmeLst.TransparentColor = System.Drawing.Color.Transparent
Me.DugmeLst.Images.SetKeyName(0, "Kaydet-N.png")
Me.DugmeLst.Images.SetKeyName(1, "Kaydet-S.png")
Me.DugmeLst.Images.SetKeyName(2, "ListeyeAl-N.png")
Me.DugmeLst.Images.SetKeyName(3, "ListeyeAl-S.png")
Me.DugmeLst.Images.SetKeyName(4, "PanodanAl-N.png")
Me.DugmeLst.Images.SetKeyName(5, "PanodanAl-S.png")
Me.DugmeLst.Images.SetKeyName(6, "Pano-N.png")
Me.DugmeLst.Images.SetKeyName(7, "Pano-S.png")
Me.DugmeLst.Images.SetKeyName(8, "SatirSil-N.png")
Me.DugmeLst.Images.SetKeyName(9, "SatirSil-S.png")
'
'LwDNS
'
Me.LwDNS.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.LwDNS.BackColor = System.Drawing.Color.Wheat
Me.LwDNS.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LwDNS.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.LwDNS.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
Me.LwDNS.ForeColor = System.Drawing.Color.Black
Me.LwDNS.FullRowSelect = True
Me.LwDNS.GridLines = True
Me.LwDNS.HideSelection = False
Me.LwDNS.Location = New System.Drawing.Point(6, 40)
Me.LwDNS.MultiSelect = False
Me.LwDNS.Name = "LwDNS"
Me.LwDNS.Size = New System.Drawing.Size(230, 332)
Me.LwDNS.Sorting = System.Windows.Forms.SortOrder.Ascending
Me.LwDNS.TabIndex = 19
Me.LwDNS.UseCompatibleStateImageBehavior = False
Me.LwDNS.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
Me.ColumnHeader1.Text = "DNS-1"
Me.ColumnHeader1.Width = 105
'
'ColumnHeader2
'
Me.ColumnHeader2.Text = "DNS-2"
Me.ColumnHeader2.Width = 105
'
'PictBul
'
Me.PictBul.Image = CType(resources.GetObject("PictBul.Image"), System.Drawing.Image)
Me.PictBul.Location = New System.Drawing.Point(211, 377)
Me.PictBul.Name = "PictBul"
Me.PictBul.Size = New System.Drawing.Size(25, 27)
Me.PictBul.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictBul.TabIndex = 35
Me.PictBul.TabStop = False
'
'Lw_EkleBtn
'
Me.Lw_EkleBtn.Location = New System.Drawing.Point(197, 16)
Me.Lw_EkleBtn.Name = "Lw_EkleBtn"
Me.Lw_EkleBtn.Size = New System.Drawing.Size(39, 20)
Me.Lw_EkleBtn.TabIndex = 274
Me.Lw_EkleBtn.Text = "Ekle"
Me.Lw_EkleBtn.UseVisualStyleBackColor = True
'
'LstGüncelleBtn
'
Me.LstGüncelleBtn.Image = CType(resources.GetObject("LstGüncelleBtn.Image"), System.Drawing.Image)
Me.LstGüncelleBtn.Location = New System.Drawing.Point(47, 377)
Me.LstGüncelleBtn.Name = "LstGüncelleBtn"
Me.LstGüncelleBtn.Size = New System.Drawing.Size(30, 30)
Me.LstGüncelleBtn.TabIndex = 32
Me.LstGüncelleBtn.UseVisualStyleBackColor = True
'
'DNS2_txt
'
Me.DNS2_txt.BackColor = System.Drawing.SystemColors.Menu
Me.DNS2_txt.Location = New System.Drawing.Point(102, 16)
Me.DNS2_txt.Name = "DNS2_txt"
Me.DNS2_txt.Size = New System.Drawing.Size(93, 20)
Me.DNS2_txt.TabIndex = 273
'
'SaklaBtn
'
Me.SaklaBtn.Image = CType(resources.GetObject("SaklaBtn.Image"), System.Drawing.Image)
Me.SaklaBtn.Location = New System.Drawing.Point(83, 377)
Me.SaklaBtn.Name = "SaklaBtn"
Me.SaklaBtn.Size = New System.Drawing.Size(30, 30)
Me.SaklaBtn.TabIndex = 29
Me.SaklaBtn.UseVisualStyleBackColor = True
'
'DNS1_txt
'
Me.DNS1_txt.BackColor = System.Drawing.SystemColors.Menu
Me.DNS1_txt.Location = New System.Drawing.Point(6, 16)
Me.DNS1_txt.Name = "DNS1_txt"
Me.DNS1_txt.Size = New System.Drawing.Size(93, 20)
Me.DNS1_txt.TabIndex = 272
'
'SilBtn
'
Me.SilBtn.Image = CType(resources.GetObject("SilBtn.Image"), System.Drawing.Image)
Me.SilBtn.Location = New System.Drawing.Point(7, 377)
Me.SilBtn.Name = "SilBtn"
Me.SilBtn.Size = New System.Drawing.Size(30, 30)
Me.SilBtn.TabIndex = 28
Me.SilBtn.UseVisualStyleBackColor = True
'
'DnsNotu
'
Me.DnsNotu.BackColor = System.Drawing.SystemColors.Info
Me.DnsNotu.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
Me.DnsNotu.Location = New System.Drawing.Point(119, 381)
Me.DnsNotu.Multiline = True
Me.DnsNotu.Name = "DnsNotu"
Me.DnsNotu.ShortcutsEnabled = False
Me.DnsNotu.Size = New System.Drawing.Size(86, 22)
Me.DnsNotu.TabIndex = 17
'
'DnsGosterBtn
'
Me.DnsGosterBtn.BackColor = System.Drawing.Color.DimGray
Me.DnsGosterBtn.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.DnsGosterBtn.Location = New System.Drawing.Point(10, 18)
Me.DnsGosterBtn.Name = "DnsGosterBtn"
Me.DnsGosterBtn.Size = New System.Drawing.Size(113, 32)
Me.DnsGosterBtn.TabIndex = 21
Me.DnsGosterBtn.Text = "Geçerli DNS Göster"
Me.DnsGosterBtn.UseVisualStyleBackColor = False
'
'ListBox1
'
Me.ListBox1.BackColor = System.Drawing.SystemColors.Menu
Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.ItemHeight = 16
Me.ListBox1.Location = New System.Drawing.Point(10, 56)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(142, 36)
Me.ListBox1.TabIndex = 22
'
'AgMerkeziBtn
'
Me.AgMerkeziBtn.BackColor = System.Drawing.Color.LightSlateGray
Me.AgMerkeziBtn.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.AgMerkeziBtn.Location = New System.Drawing.Point(10, 19)
Me.AgMerkeziBtn.Name = "AgMerkeziBtn"
Me.AgMerkeziBtn.Size = New System.Drawing.Size(145, 36)
Me.AgMerkeziBtn.TabIndex = 23
Me.AgMerkeziBtn.Text = "Ağ Paylaşım Merkezini Aç"
Me.AgMerkeziBtn.UseVisualStyleBackColor = False
'
'PMrkLbl
'
Me.PMrkLbl.AutoSize = True
Me.PMrkLbl.ForeColor = System.Drawing.SystemColors.HotTrack
Me.PMrkLbl.Location = New System.Drawing.Point(30, 58)
Me.PMrkLbl.Name = "PMrkLbl"
Me.PMrkLbl.Size = New System.Drawing.Size(93, 13)
Me.PMrkLbl.TabIndex = 266
Me.PMrkLbl.Text = "AğPaylaşımMrkLbl"
Me.PMrkLbl.Visible = False
'
'LinkLabel1
'
Me.LinkLabel1.AutoSize = True
Me.LinkLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
Me.LinkLabel1.Location = New System.Drawing.Point(4, 108)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(159, 15)
Me.LinkLabel1.TabIndex = 267
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "http://192.168.2.1/main.html"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
Me.Label1.Location = New System.Drawing.Point(4, 93)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(148, 15)
Me.Label1.TabIndex = 268
Me.Label1.Text = "TTNet IP Konfigürasyonu :"
'
'KayitSilBtn
'
Me.KayitSilBtn.BackColor = System.Drawing.Color.Peru
Me.KayitSilBtn.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
Me.KayitSilBtn.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.KayitSilBtn.Location = New System.Drawing.Point(124, 18)
Me.KayitSilBtn.Name = "KayitSilBtn"
Me.KayitSilBtn.Size = New System.Drawing.Size(29, 32)
Me.KayitSilBtn.TabIndex = 269
Me.KayitSilBtn.Text = "Sil"
Me.KayitSilBtn.UseVisualStyleBackColor = False
'
'DnsAlBtn
'
Me.DnsAlBtn.BackColor = System.Drawing.Color.Gray
Me.DnsAlBtn.ForeColor = System.Drawing.SystemColors.ButtonHighlight
Me.DnsAlBtn.Location = New System.Drawing.Point(8, 98)
Me.DnsAlBtn.Name = "DnsAlBtn"
Me.DnsAlBtn.Size = New System.Drawing.Size(145, 37)
Me.DnsAlBtn.TabIndex = 270
Me.DnsAlBtn.Text = "DNS Sunucu Adresini Otomatik Al"
Me.DnsAlBtn.UseVisualStyleBackColor = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.LwDNS)
Me.GroupBox1.Controls.Add(Me.SecilenIndex)
Me.GroupBox1.Controls.Add(Me.PictBul)
Me.GroupBox1.Controls.Add(Me.LstGüncelleBtn)
Me.GroupBox1.Controls.Add(Me.SaklaBtn)
Me.GroupBox1.Controls.Add(Me.Lw_EkleBtn)
Me.GroupBox1.Controls.Add(Me.SilBtn)
Me.GroupBox1.Controls.Add(Me.DNS2_txt)
Me.GroupBox1.Controls.Add(Me.DNS1_txt)
Me.GroupBox1.Controls.Add(Me.DnsNotu)
Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(247, 415)
Me.GroupBox1.TabIndex = 272
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Listeye DNS Ekleme,Arama,Silme,Kayıt"
'
'SecilenIndex
'
Me.SecilenIndex.Location = New System.Drawing.Point(7, 348)
Me.SecilenIndex.Name = "SecilenIndex"
Me.SecilenIndex.Size = New System.Drawing.Size(42, 20)
Me.SecilenIndex.TabIndex = 273
Me.SecilenIndex.Visible = False
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.DnsAlBtn)
Me.GroupBox2.Controls.Add(Me.DnsGosterBtn)
Me.GroupBox2.Controls.Add(Me.ListBox1)
Me.GroupBox2.Controls.Add(Me.KayitSilBtn)
Me.GroupBox2.Location = New System.Drawing.Point(279, 12)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(166, 140)
Me.GroupBox2.TabIndex = 273
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Geçerli DNS Sunucu "
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.AgMerkeziBtn)
Me.GroupBox3.Controls.Add(Me.PMrkLbl)
Me.GroupBox3.Controls.Add(Me.Label1)
Me.GroupBox3.Controls.Add(Me.LinkLabel1)
Me.GroupBox3.Location = New System.Drawing.Point(279, 294)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(166, 133)
Me.GroupBox3.TabIndex = 274
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Ağ Paylaşım Merkezi"
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(299, 158)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(133, 133)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 275
Me.PictureBox1.TabStop = False
'
'AnaForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.BackColor = System.Drawing.SystemColors.InactiveCaption
Me.ClientSize = New System.Drawing.Size(455, 431)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "AnaForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "DNS Gir"
CType(Me.PictBul, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
#Region " PANO İŞLEMLERİ...."
Private Const WM_DRAWCLIPBOARD As Integer = &H308
Private Const WM_CHANGECBCHAIN As Integer = &H30D
Private mNextClipBoardViewerHWnd As IntPtr
Private Event OnClipboardChanged()
<DllImport("user32")> _
Private Shared Function SetClipboardViewer(ByVal hWnd As IntPtr) As IntPtr
End Function
<DllImport("user32")> _
Private Shared Function ChangeClipboardChain(ByVal hWnd As IntPtr, ByVal hWndNext As IntPtr) As _
<MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("user32")> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, _
ByVal lParam As IntPtr) As IntPtr
End Function
Protected Overrides Sub WndProc(ByRef m As Message)
Select Case m.Msg
Case WM_DRAWCLIPBOARD
RaiseEvent OnClipboardChanged()
SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)
Case WM_CHANGECBCHAIN
If m.WParam.Equals(mNextClipBoardViewerHWnd) Then
mNextClipBoardViewerHWnd = m.LParam
Else
SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)
End If
End Select
MyBase.WndProc(m)
End Sub
'Dışardan panoya alınan bilgi değişiklik
Private Sub ClipBoardChanged()
Try
If dahiliPano = True Then Exit Sub
If My.Computer.Clipboard.ContainsText Then
PanodanAlınan = (My.Computer.Clipboard.GetText)
Dim DnsNotu As String = (PanodanAlınan)
'***************** panodan alınanı ayrıştır *********************
Dim sy As Integer
sy = InStr(DnsNotu, "-")
If sy = 0 Then Exit Sub
DNS1_txt.Text = Mid(DnsNotu, 1, InStr(DnsNotu, "-") - 1)
DNS2_txt.Text = Mid(DnsNotu, sy + 1, Len(DnsNotu))
'Lw_EkleBtn.PerformClick()
End If
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
#End Region
#Region " FORM İŞLEMLERİ "
Private Sub EditorForm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
ChangeClipboardChain(Me.Handle, mNextClipBoardViewerHWnd)
Me.Dispose()
End Sub
Private Sub EditorForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Me.WindowState = FormWindowState.Minimized Then Me.WindowState = vbNormal
SaveSetting(Application.ProductName, "DnsGir", "üst", Me.Top)
SaveSetting(Application.ProductName, "DnsGir", "sol", Me.Left)
SaveSetting(Application.ProductName, "DnsGir", "eni", Me.Width)
SaveSetting(Application.ProductName, "DnsGir", "boyu", Me.Height)
End Sub
Private Sub EditorForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Me.Top = GetSetting(Application.ProductName, "DnsGir", "üst", 100)
Me.Left = GetSetting(Application.ProductName, "DnsGir", "sol", 400)
Call ListeYukle()
mNextClipBoardViewerHWnd = SetClipboardViewer(Me.Handle)
AddHandler Me.OnClipboardChanged, AddressOf ClipBoardChanged
DnsGosterBtn.PerformClick()
LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://192.168.2.1/main.html")
End Sub
#End Region
#Region " LİSTVİEW LİSTESİNİ YÜKLE, GÜNCELLE SAKLA, AYNI KAYIT VAR MI...."
Private Sub LstGüncelleBtn_Click(sender As System.Object, e As System.EventArgs) Handles LstGüncelleBtn.Click
On Error GoTo hata
Call ListeYukle()
Dim index As Integer
Dim eleman As ListViewItem
'Seçilen index liste güncellendiğinde aynı satırı seçmesi gerekir
index = SecilenIndex.Text.ToString
eleman = LwDNS.Items(index)
eleman.Selected = True
LwDNS.Focus()
Exit Sub
hata:
SecilenIndex.Text = 0
Return
End Sub
Private Sub ListeYukle()
On Error Resume Next
LwDNS.Items.Clear()
Dim XMLoku As New XmlTextReader(My.Application.Info.DirectoryPath & "\" & My.Settings.XmlFileName)
XMLoku.MoveToContent()
Dim ElementName As String = ""
Dim NextItem As Boolean = True
Dim objListViewItem As ListViewItem = Nothing
Do While XMLoku.Read
If NextItem Then
objListViewItem = New ListViewItem
NextItem = False
End If
Select Case XMLoku.NodeType
Case XmlNodeType.Element
ElementName = XMLoku.Name
Case XmlNodeType.Text
If ElementName = "DSN-1" Then
objListViewItem.Text = XMLoku.Value
End If
If ElementName = "DSN-2" Then
objListViewItem.SubItems.Add(XMLoku.Value)
LwDNS.Items.Add(objListViewItem)
NextItem = True
End If
End Select
Loop
XMLoku.Close()
End Sub
Public Sub Listeyikaydet()
Dim XMLyaz As New XmlTextWriter(Application.StartupPath & My.Settings.XmlFileName, System.Text.Encoding.UTF8)
With XMLyaz
.Formatting = Formatting.Indented
.WriteStartDocument()
.WriteStartElement("WebSites")
Dim ListViewNesnesi As New ListViewItem
For Each ListViewNesnesi In LwDNS.Items
.WriteStartElement("WebSite")
.WriteElementString("DSN-1", ListViewNesnesi.Text)
.WriteElementString("DSN-2", ListViewNesnesi.SubItems(1).Text)
.WriteEndElement()
Next
.WriteEndElement()
.WriteEndDocument()
.Flush()
.Close()
End With
SaklaBtn.Enabled = False
End Sub
Public Sub AyniKayitVarMi()
Dim XMLoku As New XmlTextReader(My.Application.Info.DirectoryPath & "\" & My.Settings.XmlFileName)
Dim x As Integer
For x = 0 To LwDNS.Items.Count - 1 'sonn
If LwDNS.Items(x).SubItems(0).Text & "-" & LwDNS.Items(x).SubItems(1).Text = DNS1_txt.Text & "-" & DNS2_txt.Text Then
BuKayitVar = True
LwDNS.Items(x).Selected = True
Dim findItem As ListViewItem = LwDNS.FindItemWithText(LwDNS.Items(x).SubItems(0).Text)
LwDNS.TopItem = findItem
MsgBox("BU KAYIT ZATEN VAR")
LwDNS.Focus()
Exit Sub
Else
BuKayitVar = False
End If
Next
End Sub
Private Sub LwDNS_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles LwDNS.KeyDown
If e.KeyCode = Keys.Delete Then
SilBtn.PerformClick()
End If
If e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub
Private Sub SilBtn_Click(sender As System.Object, e As System.EventArgs) Handles SilBtn.Click
On Error Resume Next
Dim indexes As ListView.SelectedIndexCollection = LwDNS.SelectedIndices
Dim index As Integer
DnsNotu.Clear()
For Each index In indexes
LwDNS.Items.RemoveAt(index)
Next
If index = 0 Then index = 0
index = index - 1
If index = -1 Then index = 0
ColumnHeader1.Text = "Dns-1 : " & "(" & index & " Kayıt sayısı)"
ColumnHeader2.Text = "Dns-2 " & "(" & index & " .Satır seçili)"
eleman = LwDNS.Items(index)
eleman.Selected = True
LwDNS.Focus()
SaklaBtn.Enabled = True
End Sub
Private Sub SaklaBtn_Click(sender As System.Object, e As System.EventArgs) Handles SaklaBtn.Click
Call Listeyikaydet()
End Sub
#End Region
#Region " BUTON PANELİ İŞLEMLERİ (Panoya al, panoya yapıştır,ekle,Delete,Güncelle,.."
Private Sub PanodanYapistirBtn_Click(sender As System.Object, e As System.EventArgs)
Dim DnsNotu As String = (PanodanAlınan)
'***************** panodan alınanı ayrıştır *********************
Dim sy As Integer
sy = InStr(DnsNotu, "-")
If sy = 0 Then Exit Sub
DNS1_txt.Text = Mid(DnsNotu, 1, InStr(DnsNotu, "-") - 1)
DNS2_txt.Text = Mid(DnsNotu, sy + 1, Len(DnsNotu))
Call AyniKayitVarMi()
End Sub
Private Sub EkleBtn_Click(sender As System.Object, e As System.EventArgs)
If DNS1_txt.Text = "" Or DNS2_txt.Text = "" Then Exit Sub
Dim item As New ListViewItem
item.Text = DNS1_txt.Text.ToUpper
item.SubItems.Add(DNS2_txt.Text)
Call AyniKayitVarMi()
If BuKayitVar = False Then
LwDNS.Items.Add(item)
End If
LwDNS.Items(LwDNS.Items.Count - 1).Selected = True
LwDNS.Sorting = SortOrder.Ascending 'indexi bulunduktan sonra liste sıralanır
End Sub
#End Region
#Region "LİNK LİSTVİEW (ekle, DoubleClick, SelectedIndexChanged) İŞLEMLERİ.."
Private Sub ekle()
LwDNS.Sorting = SortOrder.None 'önce sırasız LW
Dim item As New ListViewItem
item.Text = DNS1_txt.Text 'dns1
item.SubItems.Add(DNS2_txt.Text) 'dns2)
LwDNS.Items.Add(item)
LwDNS.Items(LwDNS.Items.Count - 1).Selected = True
LwDNS.Sorting = SortOrder.Ascending 'indexi bulunduktan sonra liste sıralanır
'ListView' e ekleneni Görünür alanda göstermek
LwDNS.Items(LwDNS.Items.Count - 1).EnsureVisible()
LwDNS.Focus()
End Sub
Private Sub Lw_EkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles Lw_EkleBtn.Click
Try
Call AyniKayitVarMi()
If BuKayitVar = False Then Call ekle()
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
Private Sub LwDNS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LwDNS.SelectedIndexChanged
Dim sayi As Integer = LwDNS.Items.Count
Dim eleman As ListViewItem
For i As Integer = 0 To sayi - 1
eleman = LwDNS.Items(i)
If eleman.Selected Then
'seçeneklerle gösterilip iptal edilebilir
DNS1_txt.Text = LwDNS.Items(i).SubItems(0).Text
DNS2_txt.Text = LwDNS.Items(i).SubItems(1).Text
SecilenIndex.Text = i
ColumnHeader1.Text = "Kayıt " & "(" & sayi & ")"
ColumnHeader2.Text = "Seçilen " & "(" & i + 1 & ")"
End If
Next
SaklaBtn.Enabled = True
End Sub
#Region " LİSTE UYARI İŞLEMLERİ "
Private Sub SiteNotu_MouseHover(sender As System.Object, e As System.EventArgs) Handles DnsNotu.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(DnsNotu, "Rakam girin")
End Sub
Private Sub LstGüncelleBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles LstGüncelleBtn.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(LstGüncelleBtn, "Listeyi Güncelle")
End Sub
Private Sub SilBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles SilBtn.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(SilBtn, "Seçili satırı Sil veya ESC ile sil")
End Sub
#End Region
#End Region
#Region " TOOLTİP UYARILARI (Balon yazı (Tooltip)"
Private Sub SaklaBtn_MouseHover(sender As System.Object, e As System.EventArgs) Handles SaklaBtn.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(SaklaBtn, "Listeyi Sakla")
End Sub
#End Region
#Region " LisView 'de ARA-BUL İŞLEMLERİ "
Private Sub PictBul_Click(sender As System.Object, e As System.EventArgs) Handles PictBul.Click
''LİSTVİEW 'DE ARAMA
For Each item As ListViewItem In LwDNS.Items
item.BackColor = Color.Wheat 'SystemColors.Info '
Next
If DnsNotu.Text = "" Then
For Each item As ListViewItem In LwDNS.Items
item.BackColor = Color.Wheat 'SystemColors.Info '
Next
Else
Dim findItem As ListViewItem = LwDNS.FindItemWithText(DnsNotu.Text)
If findItem IsNot Nothing Then
LwDNS.MultiSelect = False
LwDNS.TopItem = findItem
findItem.BackColor = Color.Pink
DnsNotu.Text = ""
End If
End If
End Sub
Private Sub PictBul_MouseHover(sender As System.Object, e As System.EventArgs) Handles PictBul.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(PictBul, "Listede DNS Ara. " & vbCrLf & " ilk birkaç sayı girmek yeterli.")
End Sub
#End Region
#Region " ARAMA ENTER TUŞU İŞLEMLERİ "
Private Sub SiteNotu_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles DnsNotu.KeyDown
If e.KeyCode = Keys.Enter Then
PictBul_Click(sender, e)
End If
End Sub
#End Region
#Region " DURUM LABEL VE LİNKLABEL İŞLEMLERİ "
Private Sub PMrkLbl_Click(sender As System.Object, e As System.EventArgs) Handles PMrkLbl.Click
On Error Resume Next
'Ağ Paylaşım Merkezi kısa yol linkini açar
Windows.Forms.Cursor.Current = Cursors.AppStarting
Process.Start(PMrkLbl.Text)
End Sub
Private Sub AgMerkeziBtn_Click(sender As System.Object, e As System.EventArgs) Handles AgMerkeziBtn.Click
'win 10 için Ağ Paylaşım Merkezi kısa yol linkini açar
Try
PMrkLbl.Text = Application.StartupPath & "\Ağ ve Paylaşım Merkezi.lnk"
PMrkLbl_Click(sender, e)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
If My.Computer.Network.IsAvailable = False Then
MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
Exit Sub
End If
System.Diagnostics.Process.Start(e.Link.LinkData)
End Sub
#End Region
#Region " BUTON İŞLEMLERİ "
Private Sub DnsGosterBtn_Click(sender As System.Object, e As System.EventArgs) Handles DnsGosterBtn.Click
Try
If ListBox1.Items.Count > 0 Then KayitSilBtn.PerformClick()
Dim Uzunluk As NetworkInterface()
Dim DNSno As IPAddressCollection
Uzunluk = NetworkInterface.GetAllNetworkInterfaces()
For Each Adres As NetworkInterface In Uzunluk
If (Adres.OperationalStatus = OperationalStatus.Up) Then
DNSno = Adres.GetIPProperties().DnsAddresses
For Each DNSGrup As IPAddress In DNSno
ListBox1.Items.Add(DNSGrup.ToString())
Next
End If
Next
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
Private Sub KayitSilBtn_Click(sender As System.Object, e As System.EventArgs) Handles KayitSilBtn.Click
Me.ListBox1.Items.Clear()
End Sub
Private Sub DnsAlBtn_Click(sender As System.Object, e As System.EventArgs) Handles DnsAlBtn.Click
Try
Dim reg As String = "SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\"
For Each x In Registry.LocalMachine.OpenSubKey(reg, True).GetSubKeyNames()
For Each y In Registry.LocalMachine.OpenSubKey(reg & x & "\", True).GetValueNames
If y = "NameServer" Then Registry.LocalMachine.OpenSubKey(reg & x & "\", True).SetValue(y, "192.168.2.1" & "," & "255.255.255.0")
Next
Next
DnsGosterBtn.PerformClick()
MsgBox("Dns Sunucu Adresi;" & vbCrLf & DNS1_txt.Text & "," & DNS2_txt.Text & vbCrLf & "olarak ayarlandı.")
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
#End Region
#Region " ListView İŞLEMLERİ "
Private Sub LwDNS_DoubleClick(sender As System.Object, e As System.EventArgs) Handles LwDNS.DoubleClick
' Registere Geçerli DNS olarak kaydet ve formda göster
Try
Dim reg As String = "SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\"
For Each x In Registry.LocalMachine.OpenSubKey(reg, True).GetSubKeyNames()
For Each y In Registry.LocalMachine.OpenSubKey(reg & x & "\", True).GetValueNames
If y = "NameServer" Then Registry.LocalMachine.OpenSubKey(reg & x & "\", True).SetValue(y, DNS1_txt.Text & "," & DNS2_txt.Text)
Next
Next
' Dns 'leri göster
DnsGosterBtn.PerformClick()
SaklaBtn.PerformClick()
MsgBox("Dns Sunucu Adresi;" & vbCrLf & DNS1_txt.Text & "," & DNS2_txt.Text & vbCrLf & "olarak ayarlandı.")
Catch ex As Exception
MsgBox(ex.Message())
End Try
End Sub
Private Sub LwDNS_MouseHover(sender As System.Object, e As System.EventArgs) Handles LwDNS.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(LwDNS, "DNS Değiştirmek için Çift Tıkla")
End Sub
Private Sub LwDNS_Click(sender As System.Object, e As System.EventArgs) Handles LwDNS.Click
For Each item As ListViewItem In LwDNS.Items
item.BackColor = Color.Wheat ' SystemColors.Info
Next
End Sub
#End Region
Private Sub DNS1_txt_Click(sender As System.Object, e As System.EventArgs) Handles DNS1_txt.Click
DNS1_txt.Text = Nothing
DNS2_txt.Text = Nothing
End Sub
End Class
</textarea><br />
Modül1<br />
<br />
<br />
<textarea class="bginput" cols="42" name="ERDOĞAN ASLAN" onclick="this.focus();this.select()" rows="5" style="height: 83px; margin: 0px; width: 606px;">Module Module1
Public PanodanAlınan As String
Public dahiliPano As Boolean
Public SecilenIndex As Integer
Public BuKayitVar As Boolean = False
Public dns1, dns2 As String
End Module</textarea></div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com2tag:blogger.com,1999:blog-6971042533210809458.post-54610789462684349442016-11-08T23:32:00.002-08:002016-12-28T03:26:47.673-08:00Resimleri Boyutlandırma<div class="separator" style="clear: both; text-align: center;">
<b><span style="color: #cc0000;">RESİM BOYUTLANDIRMA PROJE KODLARI </span> <a href="https://drive.google.com/file/d/0B5dUhEyCfyq8bi10Smh4aDg0b28/view?usp=sharing" target="_blank">İNDİR</a></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgBrJc6Yja7CdSTTnEbUsFFUaCGzKW6hmsq_g-zv9n1dZwYgHZn7nlY6-Q0uQsI0lrf1GoUCeba81B0MQC19Rit-C2kiFwUms1Sw99fvz9GodfDVDh-Y_WmIIDm713XIU0i0ugr_0baCtE/s1600/RBoyut_1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgBrJc6Yja7CdSTTnEbUsFFUaCGzKW6hmsq_g-zv9n1dZwYgHZn7nlY6-Q0uQsI0lrf1GoUCeba81B0MQC19Rit-C2kiFwUms1Sw99fvz9GodfDVDh-Y_WmIIDm713XIU0i0ugr_0baCtE/s1600/RBoyut_1.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhYqrdsLknZAY5_uZa7JCOLjbS5pUBOFaDMZgX3CMb4vXDBbldgpJKK8pr5TBax_7eMb0IHXlbPwW0uSae6XKZrVUXV2IvvJ7BORz4PeLO7YkNL-pqowGa0FvJdI_GikiZBWlLKbZqyZYw/s1600/RBoyut_2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhYqrdsLknZAY5_uZa7JCOLjbS5pUBOFaDMZgX3CMb4vXDBbldgpJKK8pr5TBax_7eMb0IHXlbPwW0uSae6XKZrVUXV2IvvJ7BORz4PeLO7YkNL-pqowGa0FvJdI_GikiZBWlLKbZqyZYw/s1600/RBoyut_2.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiuzrQ29UbAKb3ezi3sZGI5MoPG487ashxzfPrqVvnhiOl9MKvpmMofKQhGVmM5VMGk9YrYj0hGZkH-YTOMaBp0Vn4xrBTZtlrtwTJDH8Yix_luK5CxDlMO0CBJdsQtdbLChsadQhsP4D0/s1600/RBoyut_3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiuzrQ29UbAKb3ezi3sZGI5MoPG487ashxzfPrqVvnhiOl9MKvpmMofKQhGVmM5VMGk9YrYj0hGZkH-YTOMaBp0Vn4xrBTZtlrtwTJDH8Yix_luK5CxDlMO0CBJdsQtdbLChsadQhsP4D0/s1600/RBoyut_3.png" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
Form Kodları</div>
<textarea class="bginput" cols="42" name="ERDOĞAN ASLAN" onclick="this.focus();this.select()" rows="5" style="height: 170px; width: 620px;">Imports System.IO
Imports System.Drawing
Public Class Form1
#Region "GENEL DEĞİŞKENLER"
Dim ResmiYenidenBoyutla As Image
Dim ResimOzellikleri As Image
Dim ResimEni As Integer
Dim ResimBoyu As Integer
#End Region
#Region "FORM İŞLEMLERİ "
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'Program kapatılırken karartma yapılır
Dim iCount As Integer
For iCount = 100 To 1 Step -2
Me.Opacity = iCount / 100
Threading.Thread.Sleep(10)
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AllowDrop = True 'Drag drop ile forma resim yüklemek için gerekli
End Sub
#End Region
#Region "RESİM BOYUTLAMA PROSEDÜRLERİ"
Sub ResizeTheImage()
' (NumBoyYzdesi) değeri temelinde PictureBox'u boyutlandır..
picBox.Image = Image.FromFile(LblYol.Text)
Dim yeniEni As Integer = ((numBoyYzdesi.Value / 100) * ResimEni)
Dim yeniBoyu As Integer = ((numBoyYzdesi.Value / 100) * ResimBoyu)
Dim YeniBoyut As New Size(yeniEni, yeniBoyu)
lblYeniBoyut.Text = yeniEni.ToString + " x " + yeniBoyu.ToString
ResmiYenidenBoyutla = New Bitmap(picBox.Image, YeniBoyut)
picBox.Image = ResmiYenidenBoyutla
If YeniBoyut.Width < 400 Or YeniBoyut.Height < 400 Then
Label4.Text = ""
picBox.SizeMode = PictureBoxSizeMode.CenterImage
Else
Label4.Text = "Resim Boyutu artırılırken, 400 pixel üstü Görüntülerin buradaki görünümü küçültülür."
picBox.SizeMode = PictureBoxSizeMode.Zoom
End If
End Sub
Sub ResimBoyutunuAl()
' PictureBox'un içine dosyadan genişlik ve yükseklik değerini alın. buna göre yakınlaştırma ve merkezi ayarlayın.
ResimOzellikleri = Image.FromFile(LblYol.Text)
ResimEni = ResimOzellikleri.Size.Width
ResimBoyu = ResimOzellikleri.Size.Height
If ResimEni < 400 Or ResimBoyu < 400 Then
picBox.SizeMode = PictureBoxSizeMode.CenterImage
Else
picBox.SizeMode = PictureBoxSizeMode.Zoom
End If
lblOrjBoyut.Text = ResimEni.ToString + " x " + ResimBoyu.ToString
End Sub
Private Sub numBoyYzdesi_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numBoyYzdesi.ValueChanged
'Görüntü PictureBox içine yüklendiğinde, yeniden boyutlandırmak için GC.Collect() komutu ile (Garbage Collector) derleme yapılır
Try
ResizeTheImage() 'Resmi yeniden boyutlandırma işlemi yapılıyor
lblDurum.Text = "Değişiklikler Saklanmadı"
lblDurum.ForeColor = Color.DarkRed
GC.Collect()
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
#End Region
#Region "Dosya Açmk ve Saklama işlemleri "
Private Sub btnDsySakla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDsySakla.Click
' Boyutlandırılan görüntüyü kaydet.
If OpenFileDialog1.FileName = "" Then
MsgBox("Yüklenecek görüntü yok." & vbCrLf & "Resim yükleyip yeniden deneyin.", vbOKOnly, "Hata")
Exit Sub
End If
Try
SaveFileDialog1.FileName = Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName) + "_YeniBoyut" + OpenFileDialog1.DefaultExt
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
picBox.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
lblDurum.Text = "Değişiklikler kaydedildi"
lblDurum.ForeColor = Color.Black
LblYol.Text = SaveFileDialog1.FileName
GC.Collect()
End If
Catch ex As Exception
MsgBox("Geçerli bir dosya ve konum seçtiğinizden emin olun.", vbOKOnly, "Hata")
GC.Collect()
End Try
End Sub
Private Sub btnDsyAc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDsyAc.Click
'PictureBox içine açılan dosyayı göstermek için açar.
lblYeniBoyut.Text = "" : lblOrjBoyut.Text = "" : numBoyYzdesi.Value = 100
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
LblYol.Text = OpenFileDialog1.FileName
lblDurum.Text = "Resim Yüklendi"
lblDurum.ForeColor = Color.Black
picBox.Image = Image.FromFile(LblYol.Text)
ResimBoyutunuAl()
End If
End Sub
#End Region
#Region " Label 'e tıklayarak dosya seçmeyi açmak"
Private Sub LblYol_Click(sender As System.Object, e As System.EventArgs) Handles LblYol.Click
btnDsyAc.PerformClick()
End Sub
#End Region
#Region " Balon Yazı "
Private Sub btnDsyAc_MouseHover(sender As System.Object, e As System.EventArgs) Handles btnDsyAc.MouseHover
ToolTip1.SetToolTip(btnDsyAc, "Resim Dosyası Yükle")
End Sub
Private Sub btnDsySakla_MouseHover(sender As System.Object, e As System.EventArgs) Handles btnDsySakla.MouseHover
ToolTip1.SetToolTip(btnDsySakla, "Resim Dosyası Sakla")
End Sub
#End Region
#Region " Drag drop ile forma resim yüklemek "
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
Dim Dsy() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In Dsy
LblYol.Text = path
picBox.Image = Image.FromFile(path)
lblDurum.Text = "Resim Yüklendi"
lblDurum.ForeColor = Color.Black
picBox.Image = Image.FromFile(LblYol.Text)
ResimBoyutunuAl()
Next
OpenFileDialog1.FileName = LblYol.Text
End Sub
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
#End Region
#Region " PicBox Arka Fonu Seçmek "
Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
picBox.BackColor = SystemColors.ButtonHighlight
Else
picBox.BackColor = SystemColors.ActiveCaptionText
End If
End Sub
Private Sub lblDurum_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles lblDurum.MouseDown
'lblDurum 'a sağFare tuşu ile tıklandığında PicBox arka fonu "siyah" veye "Beyaz" yapılır
If e.Button = Windows.Forms.MouseButtons.Right Then
If CheckBox1.Checked = False Then
CheckBox1.Checked = True
Else
CheckBox1.Checked = False
End If
End If
End Sub
#End Region
End Class
</textarea><br />
<br />
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0tag:blogger.com,1999:blog-6971042533210809458.post-62814692921469102902016-05-26T09:35:00.001-07:002020-05-27T02:31:28.922-07:00Acronis True İmage İle Bootable USB Oluşturmak<div dir="ltr" style="text-align: left;" trbidi="on">
Bir USB belleği; bootable (<span style="color: red;">ön yüklenebilir bir disk</span>) haline getirmek için komut istemini açıyoruz<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhzckZTPZ89frxg9Nh_2J5Aj9gj91OA6i8TWqt5dUXApwJ33yKd_WRIoRWEc6CoF-dMCWy9zjF6RNQsZEFaXmkrOrNxQ41INMJKRBuhLtYvgyP030TaI46ZCegII9Mre_PYmMCDGjQvOA/s1600/komutistemi.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhzckZTPZ89frxg9Nh_2J5Aj9gj91OA6i8TWqt5dUXApwJ33yKd_WRIoRWEc6CoF-dMCWy9zjF6RNQsZEFaXmkrOrNxQ41INMJKRBuhLtYvgyP030TaI46ZCegII9Mre_PYmMCDGjQvOA/s1600/komutistemi.jpg" /></a></div>
<br />
Bilgisayardaki arama bölümüne <b>cmd </b>yazarak Komut İstemi ' ni açıyoruz<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigyqD21RYNp4Gg9Tu44B5__d89SRnLE526cc5Ge616j3eN3t-v_Ci8Nps0xBBkQyz0sg1XWZYwaryyYCoPiHQY3RXJKLYbkZtczHUvxpAaWac5OGDEekhGu24kSat8zH7CGBv-jVqy9kQ/s1600/diskpart_22.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigyqD21RYNp4Gg9Tu44B5__d89SRnLE526cc5Ge616j3eN3t-v_Ci8Nps0xBBkQyz0sg1XWZYwaryyYCoPiHQY3RXJKLYbkZtczHUvxpAaWac5OGDEekhGu24kSat8zH7CGBv-jVqy9kQ/s1600/diskpart_22.jpg" /></a></div>
<div style="text-align: center;">
<br /></div>
<br />
Diskpart Komutunu giriyoruz<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZxNku5lNFUOpSExvQyKEUtr8SADyw03FCxq-kk1enkf6mlS9F4og-ESR89ijAg5mEKlHpSAy_UMnp_484TbUI94zkxmWoiy8YZwTCb__QPamnpjrGwuq76K6IJ91sTUNJ1gbFm9lRt0E/s1600/diskpart.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZxNku5lNFUOpSExvQyKEUtr8SADyw03FCxq-kk1enkf6mlS9F4og-ESR89ijAg5mEKlHpSAy_UMnp_484TbUI94zkxmWoiy8YZwTCb__QPamnpjrGwuq76K6IJ91sTUNJ1gbFm9lRt0E/s1600/diskpart.jpg" /></a></div>
<div style="text-align: center;">
<br /></div>
<b> <span style="color: red;">1-diskpart</span></b><br />
Komutunu girip enter tuşuna basarak diskpart aracına geçiş yapıyoruz.<br />
<br />
<br />
<b>(list disk)</b> komutu ile bilgisayarımıza bağlı tüm diskleri listeliyoruz.<br />
<br />
<div style="text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiTINmkGuDpcSsAKvHHtqmsxhSdFTgyELQPesUEGIVD6zLr4JKiEQVgBMPw1fFNFOxhcyHmwv9nZ3UwzJ40xvNtJvXhgvEfiGvuIhEzdsUo1FPrMyb26qh3VBCaYxC11y31nTGBe0h6Pc/s1600/ListDisk.jpg" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiTINmkGuDpcSsAKvHHtqmsxhSdFTgyELQPesUEGIVD6zLr4JKiEQVgBMPw1fFNFOxhcyHmwv9nZ3UwzJ40xvNtJvXhgvEfiGvuIhEzdsUo1FPrMyb26qh3VBCaYxC11y31nTGBe0h6Pc/s1600/ListDisk.jpg" /></a> </div>
<br />
Bu bölümde kendi USB belleğimizi bulmamız ve disk numarasını öğrenmemiz gerekiyor. Bunu anlamanın en kolay yolu kapasitesini kontrol etmektir. Örneğimizde "Disk 1" belleğimizi ifade ediyor. Eğer yanlış disk kodunu kullanırsanız başka bir diski silme ihtimaliniz bulunmakta. Lütfen dikkatli olun.<br />
<br />
<b><span style="color: red;">2-select disk 1</span></b><br />
<b>(select disk 1) </b>komutu ile belleğimizi seçiyoruz.<br />
<br />
<div style="text-align: left;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6jtsLJ3TaPXBrb1Lfw0ZGDgFJGHnbgNEavzZc130NnTce-l5Z-ueZtbf5xriEXIT2PLPfusunxovzz-rxJvYOjLqA68oT27tPMtuM26K8fTxalgY0xl9VG9bMnJtWMBCVgLbfQK6oegU/s1600/selectDisk.jpg" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6jtsLJ3TaPXBrb1Lfw0ZGDgFJGHnbgNEavzZc130NnTce-l5Z-ueZtbf5xriEXIT2PLPfusunxovzz-rxJvYOjLqA68oT27tPMtuM26K8fTxalgY0xl9VG9bMnJtWMBCVgLbfQK6oegU/s400/selectDisk.jpg" /></a></div>
<br />
<span style="color: red;"><b>3-clean</b></span><br />
<b>(Clean)</b> komutu ile seçtiğimiz disk temizleniyor<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh47L8F_eqmcUa725TaBb67q4rb2Ed5ys0wX1YnlUzb5bloKn0Gb3_h9HwKKlLXmux_oySeNUMdW5qERn3484yTfSOdxA-6lK2gke40kLIxy0MIZ6_e7pUDDaPYBiAHdMi9Eif2qeU90kU/s1600/Clean.jpg" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh47L8F_eqmcUa725TaBb67q4rb2Ed5ys0wX1YnlUzb5bloKn0Gb3_h9HwKKlLXmux_oySeNUMdW5qERn3484yTfSOdxA-6lK2gke40kLIxy0MIZ6_e7pUDDaPYBiAHdMi9Eif2qeU90kU/s400/Clean.jpg" /></a><br />
<br />
<b style="color: red;">4-create partition primary</b><br />
(<b>create partition primary</b>) komutunu vererek yeni bölüm oluşturuyoruz.<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhc-KbWBwNfIfhSEdBw6nbfdG3N-3d_x3UL6-0TSaiVTJZpFvKraOsuL5xTxz-0H-rGN4RlZHn8XSA4eRE0N2bFzyla6hxvzyYCpB4KRHDpHfVVcJJB-R1mF7ip2fpgzEp3-mbvjzo9wS4/s1600/CreatePart1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhc-KbWBwNfIfhSEdBw6nbfdG3N-3d_x3UL6-0TSaiVTJZpFvKraOsuL5xTxz-0H-rGN4RlZHn8XSA4eRE0N2bFzyla6hxvzyYCpB4KRHDpHfVVcJJB-R1mF7ip2fpgzEp3-mbvjzo9wS4/s400/CreatePart1.jpg" /></a><br />
<br />
<b><span style="color: red;">5-select partition 1</span></b><br />
<b>(Select partition primery)</b> komutu ile de oluşturduğumuz bölümü seçiyoruz.<br />
<br />
<div class="separator" style="clear: both; text-align: left;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBD_-YrrrSi90HMfaR5D_QS7SHzyMTNqkaW2Lbb1UQWQWDWcvFYj8z5gL7LiPn5bFpIPcn1MKcbsyEJmC6h064Ohl0KL7ZGlyVO8tfIgnHIPLd6_QAi0y0mw3Q88a5RRv-chr6KRUIAK0/s1600/CreatePartition.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBD_-YrrrSi90HMfaR5D_QS7SHzyMTNqkaW2Lbb1UQWQWDWcvFYj8z5gL7LiPn5bFpIPcn1MKcbsyEJmC6h064Ohl0KL7ZGlyVO8tfIgnHIPLd6_QAi0y0mw3Q88a5RRv-chr6KRUIAK0/s400/CreatePartition.jpg" /></a></div>
<br />
<b><span style="color: red;">6-active </span></b><br />
<b>(active)</b> komutunu girerek belleği aktif yapıyoruz<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioEeshHP5duthv-kIdSf6kn8TYsoWfMWoCXNWXhNTkgTtwuMYDH_-Yd4J7PtvGKKOTnBh-b4y93Dtpc7p0uDV4mQrhtnA1rQxPCbKS_NfK5Z4argZByHxOIjrPcLPDt4XLrKFrXDm_EmU/s1600/Active.jpg" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioEeshHP5duthv-kIdSf6kn8TYsoWfMWoCXNWXhNTkgTtwuMYDH_-Yd4J7PtvGKKOTnBh-b4y93Dtpc7p0uDV4mQrhtnA1rQxPCbKS_NfK5Z4argZByHxOIjrPcLPDt4XLrKFrXDm_EmU/s400/Active.jpg" /></a><br />
<b style="color: red;"> </b><br />
<span style="color: red;"><b>7-format quick fs=fat32</b></span><br />
<b>(format quick fs)</b><b style="color: red;"> </b>komutu ile belleğimizi fat32 dosya sistemi ile biçimlendiriyoruz. Eğer quick komutunu eklemezseniz işlem uzun sürebilir.<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsgM2EFOFVlds3R1verxgyOYk56Q1lScX7Y76ivkqIJTw0xSQPQTALoyq78NI4K5dLKH5-udvCQP9HfADw_e9wZKAjQE2yzWqyRKCyP9vaLnqP8DvPCvgZwVryXRajnBvUuDf-Wql26eg/s1600/assign.jpg" imageanchor="1" style="clear: left; display: inline !important; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsgM2EFOFVlds3R1verxgyOYk56Q1lScX7Y76ivkqIJTw0xSQPQTALoyq78NI4K5dLKH5-udvCQP9HfADw_e9wZKAjQE2yzWqyRKCyP9vaLnqP8DvPCvgZwVryXRajnBvUuDf-Wql26eg/s400/assign.jpg" /></a><br />
<br />
<div style="text-align: left;">
<br />
<b><span style="color: red;">8-assign</span></b></div>
<br />
<div>
<b>(Assign) </b>komutu ile belleğimize bir harf atayıp işlemimizi bitiriyoruz. Eğer tüm işlemler başarılıysa artık komut penceresini kapatabiliriz. </div>
<br />
<div style="text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjfL70znMYEcAqUFThem6AQI11BP0IgCDUrG62A0lH1r0vnfrcN94Q_xkYV8wOFkHg_Ag92Vi66Uo3clwdYlatVanxEEOV5q0qQbmo-airzjYZ39zHeiBfGjIJSCIR5jP6ON204CyAudA/s1600/R3.png" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjfL70znMYEcAqUFThem6AQI11BP0IgCDUrG62A0lH1r0vnfrcN94Q_xkYV8wOFkHg_Ag92Vi66Uo3clwdYlatVanxEEOV5q0qQbmo-airzjYZ39zHeiBfGjIJSCIR5jP6ON204CyAudA/s1600/R3.png" /></a></div>
<div style="text-align: center;">
<br /></div>
Üstteki resimde Komutların toplu halini görüyorsunuz<br />
<br />
Artık USB belleğimiz bootable hale geldi. <br />
Şimdi Acronis True Images ISO dosyasından veya DVD içinde bulunan tüm dosyaları USB belleğimize kopyalıyoruz. <br />
<br />
Kopyalama işlemi bittikten sonra belleğimizi kullanarak istediğimiz bilgisayara format atabiliriz.<br />
<br />
<b> Not:</b> Bilgisayarın belleğinizi tanıması için Bios ayarlarındaki Boot menüsünden belleği en üst sıraya almanız gerekmektedir.<br />
(<b>Bootable Acranis True Image 2018)</b> <b><span style="color: red;">ISO Dosyası </span> </b>(614 MB) <b><span style="font-size: large;"> <a href="https://yadi.sk/d/mgX01ZTb3NsrT5" target="_blank">İNDİR</a></span></b><br />
(<b>Bootable Acranis True Image 2020) Türkçe</b> <b><span style="color: red;">ISO Dosyası </span> </b>(Alternatif) <b><a href="https://drive.google.com/file/d/1jVq3e1i1LuCWy0f0pk_Rd_vzoCdYpb8n/view?usp=sharing" target="_blank"><span style="font-size: large;">İNDİR</span> </a></b><br />
<b>ISO Dosyasını Açmak için POWER ISO v4.7 <span style="font-size: large;"><a href="https://drive.google.com/open?id=1SAEVyqC8OOWOflM0CgxMazc0LoGYGkZh" target="_blank">İNDİR</a></span></b><br />
<div>
<br /></div>
<hr />
<b>Windows 8'i Silip Yerine Windows 7 Yüklemek</b> için PDF Dosyasını <b><a href="https://drive.google.com/file/d/0B5dUhEyCfyq8eTFjUkpKbTVEMzg/view?usp=sharing" target="_blank">İNDİR</a></b><br />
<br /></div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com2tag:blogger.com,1999:blog-6971042533210809458.post-66016506837984670232016-04-25T02:33:00.000-07:002016-09-28T00:24:27.026-07:00EKRANI ve GÖREV YÖNETİCİ MENÜSÜNÜ KİLİTLEME PROJE KODLARI<div style="text-align: center;">
<b>NOT: <span style="color: red;">Win 10 için geçerlidir</span></b><br />
<b>EKRANI KİLİTLEME PROJE KODLARI _<span style="color: red;">(V1.0.16)</span> <a href="https://1drv.ms/u/s!AjaOJ0n8nz37lAHnkqOxVH6XSviD" target="_blank">İNDİR</a></b></div>
<div style="text-align: center;">
<b>SADECE <span style="color: red;">EXE</span> PROGRAMI <a href="https://1drv.ms/u/s!AjaOJ0n8nz37lAACXEMZK8MLUSh9" target="_blank">İNDİR</a></b><br />
<hr />
<span style="color: red;">Win 7 için örnek</span><br />
<b>EKRAN KALKANI-KOD <a href="https://drive.google.com/file/d/0B5dUhEyCfyq8YmVJbUxNdFRTMVk/view?usp=sharing" target="_blank">İNDİR</a></b><br />
<b><br /></b></div>
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhcwX2AJ9P4WI7XH6Hh8sSUVGq8ZtL7RzKYNQHpXmX-tgq6eIznMnZJR61auEBlQvX7ShducuA1_Dv1HWyK8EKforbPcqhcfNPLuWAC1uW7p5qCmvOwroBCbixp8-Y18052FrQtn-GEDxU/s1600/ekranKalkan%25C4%25B1_1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhcwX2AJ9P4WI7XH6Hh8sSUVGq8ZtL7RzKYNQHpXmX-tgq6eIznMnZJR61auEBlQvX7ShducuA1_Dv1HWyK8EKforbPcqhcfNPLuWAC1uW7p5qCmvOwroBCbixp8-Y18052FrQtn-GEDxU/s1600/ekranKalkan%25C4%25B1_1.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgcvbkay6o80mPfAWJUBrn-AIwjYG9A3s3hXSfS4mOq6zjrC8izsoIvDWUE-mLbD5rvb7mISCjzves0AbLLp-EKzuJheMtghJbxiG1zJGmXUhhyQGL8r7KcHpZfeCaCGhWdM4Pjl68bDT8/s1600/ekranKalkan%25C4%25B1_2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgcvbkay6o80mPfAWJUBrn-AIwjYG9A3s3hXSfS4mOq6zjrC8izsoIvDWUE-mLbD5rvb7mISCjzves0AbLLp-EKzuJheMtghJbxiG1zJGmXUhhyQGL8r7KcHpZfeCaCGhWdM4Pjl68bDT8/s1600/ekranKalkan%25C4%25B1_2.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNgAImxL4s3fY33aY9Dzn1dO8HYFp0PUVqyfpPFXCxYy43Zkl0uvn29bT7aNZYHjagHpBkhVgVnkPTZztCFrRf_n7GH37QxRz6o-8ZYxQVIX-qKx6WUyGMhF2cWQsB5hYfZsxw0nT_MRs/s1600/ekranKalkan%25C4%25B1_3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNgAImxL4s3fY33aY9Dzn1dO8HYFp0PUVqyfpPFXCxYy43Zkl0uvn29bT7aNZYHjagHpBkhVgVnkPTZztCFrRf_n7GH37QxRz6o-8ZYxQVIX-qKx6WUyGMhF2cWQsB5hYfZsxw0nT_MRs/s1600/ekranKalkan%25C4%25B1_3.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqwWCRl_l8AIKMqlkEyrvJzm6Ul8X_ku4xIXMeVFRULZKUYQ1JVVSCPHn9oWfB0GmJqJx-JU7WASVxLvgcd4ibdxWXnuacfC6q_7LolHg3yCggF9EvVg6qwY0gTEuvHsNjpuHt6ron7fc/s1600/ekranKalkan%25C4%25B1_4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqwWCRl_l8AIKMqlkEyrvJzm6Ul8X_ku4xIXMeVFRULZKUYQ1JVVSCPHn9oWfB0GmJqJx-JU7WASVxLvgcd4ibdxWXnuacfC6q_7LolHg3yCggF9EvVg6qwY0gTEuvHsNjpuHt6ron7fc/s1600/ekranKalkan%25C4%25B1_4.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwHQViypDa5IVofx6JYQyi3LjRyPaKVvDx34yYca1g50lFuStVyZ_GFO7hyphenhyphencxNSg8snjy_AE3w7JdB1uzGi3uz3qkppBWhKoa7Nr5-LO_3Mr9qLgl6aGtrVlCzdz3osJRHWH2-Teitk4A/s1600/ekranKalkan%25C4%25B1_5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiwHQViypDa5IVofx6JYQyi3LjRyPaKVvDx34yYca1g50lFuStVyZ_GFO7hyphenhyphencxNSg8snjy_AE3w7JdB1uzGi3uz3qkppBWhKoa7Nr5-LO_3Mr9qLgl6aGtrVlCzdz3osJRHWH2-Teitk4A/s1600/ekranKalkan%25C4%25B1_5.png" /></a></div>
<b><br /></b></div>
<div style="text-align: center;">
<b><br /></b></div>
<div style="text-align: center;">
<b><br /></b></div>
<div style="text-align: center;">
<br /></div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0tag:blogger.com,1999:blog-6971042533210809458.post-49068222353551950412016-04-09T19:23:00.001-07:002020-05-27T02:11:12.397-07:00ÇOKLU ALARM ÖRNEK PROJESİ<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: center;">
<span style="color: red;"><b>ÇOKLU ALARM PROJE KODLARI</b></span> <b><a href="https://drive.google.com/file/d/1zz1e6YtMHV8CFwyqgWG0PqsqEGnTg8nD/view?usp=sharing" target="_blank">İNDİR</a></b><br />
<br /></div>
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgB8uP1umEnNUmtT6bytbqiuM_a27zePS3jrkBdrviqZQF4km84Jzl4A-iPDUTveTJzYDdqUSuic5Qfsfq3LywxDXPq-0jp1_PjagG3ODhIaDar-fAntcSB6H99_-mi5DJx2oCz69-EVBs/s1600/alarm-2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgB8uP1umEnNUmtT6bytbqiuM_a27zePS3jrkBdrviqZQF4km84Jzl4A-iPDUTveTJzYDdqUSuic5Qfsfq3LywxDXPq-0jp1_PjagG3ODhIaDar-fAntcSB6H99_-mi5DJx2oCz69-EVBs/s640/alarm-2.png" width="578" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipdkgXuUw_p3RP4-GGsG2r9W6y0Ex-4fzJCdcBiq2kvEg1e5gVa4z42ZYLeNLCpgrwyZPE8n0jpvUIEa1WL2g8ygUrrXXaSxIAxt7kZ0evSrvwl65DXMGHBjGj2mMAXOqFBVmbIulpi5k/s1600/alarm.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipdkgXuUw_p3RP4-GGsG2r9W6y0Ex-4fzJCdcBiq2kvEg1e5gVa4z42ZYLeNLCpgrwyZPE8n0jpvUIEa1WL2g8ygUrrXXaSxIAxt7kZ0evSrvwl65DXMGHBjGj2mMAXOqFBVmbIulpi5k/s640/alarm.png" width="580" /></a></div>
<br /></div>
<textarea class="bginput" cols="42" name="ERDOĞAN ASLAN" onclick="this.focus();this.select()" rows="5" style="height: 170px; width: 650px;">Public Class Form1
Dim AlarmCal As Boolean = False
Dim TimerAyarla As Boolean = False
Dim eylemSuresi As Byte = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim xDizi As String
Timer1.Enabled = True
Timer2.Enabled = True
' Menüleri Boşalt
alarm_Cmb1A.Items.Add("")
alarm_Cmb2A.Items.Add("")
alarm_Cmb3A.Items.Add("")
alarm_Cmb1B.Items.Add("")
alarm_Cmb2B.Items.Add("")
alarm_Cmb3B.Items.Add("")
'Saat Bölümünü doldur
For n As Byte = 0 To 23
xDizi = n
IKI(xDizi)
alarm_Cmb1A.Items.Add(xDizi)
alarm_Cmb2A.Items.Add(xDizi)
alarm_Cmb3A.Items.Add(xDizi)
Next
'Dakika Bölümünü doldur
For n As Byte = 0 To 59
xDizi = n
IKI(xDizi)
alarm_Cmb1B.Items.Add(xDizi)
alarm_Cmb2B.Items.Add(xDizi)
alarm_Cmb3B.Items.Add(xDizi)
Next
End Sub
Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Dim SesliUyar As Boolean = False
If alarm_Cmb1A.Text <> "" And alarm_Cmb1B.Text <> "" Then SesliUyar = True
If alarm_Cmb2A.Text <> "" And alarm_Cmb2B.Text <> "" Then SesliUyar = True
If alarm_Cmb3A.Text <> "" And alarm_Cmb3B.Text <> "" Then SesliUyar = True
If timer_LblKronometre.Text <> "00:00" Then SesliUyar = True
If SesliUyar = True Then
If MsgBox("Çıkmak istediğinizden emin misiniz?", _
MsgBoxStyle.YesNo, "Çoklu Alarm Uyarısı") = MsgBoxResult.No Then
e.Cancel = True
End If
End If
End Sub
Private Sub TimerButonları(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles timer_Btn10.Click, timer_Btn5.Click, timer_Btn1.Click, timer_BtnBASLAT.Click
Dim Btn_Text As Control = CType(sender, Control)
Dim Ekle As Byte
Dim Basamak As String
Select Case Btn_Text.Text
Case "+1"
Ekle = 1
Case "+5"
Ekle = 5
Case "+10"
Ekle = 10
Case "Başla"
timer_BtnBASLAT.Text = "Sıfırla"
timer_BtnBASLAT.ForeColor = Color.Red
TimerAyarla = True
timer_LblKronometre.Enabled = True
Exit Sub
Case "Sıfırla"
timer_BtnBASLAT.ForeColor = SystemColors.ControlText
timer_BtnBASLAT.Text = "Başla"
timer_BtnBASLAT.Enabled = False
timer_LblKronometre.Enabled = False
TimerAyarla = False
timer_LblKronometre.Text = "00:00"
Exit Sub
End Select
timer_BtnBASLAT.Enabled = True
'TIMER için 1, 5 veya 10 dakika ekle
Basamak = Mid(timer_LblKronometre.Text, 1, 2) + Ekle
IKI(Basamak)
'iki basamaktaki sayı 99 dan büyükse çık
'iki basamaklı sayıyı hatırla
If Basamak > 99 Then Exit Sub
'Değişiklikleri uygula
timer_LblKronometre.Text = Basamak & ":" & Mid(timer_LblKronometre.Text, 4, 5)
End Sub
Private Sub btnDUR_Click(sender As System.Object, e As System.EventArgs) Handles btnDUR.Click
AlarmSesi("Dur")
btnDUR.BackColor = SystemColors.Control
btnDUR.ForeColor = SystemColors.ControlText
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'ALARM CODE
Dim SaatBLM As String = DateTime.Now.Hour 'Saat
Dim DakikaBLM As String = DateTime.Now.Minute 'Dakika
Dim SaniyeBLM As String = DateTime.Now.Second 'Saniye Bölümü
IKI(SaatBLM)
IKI(DakikaBLM)
IKI(SaniyeBLM)
SaatLbl.Text = SaatBLM & ":" & DakikaBLM & ":" & SaniyeBLM
If alarm_Cmb1A.Text = SaatBLM _
And alarm_Cmb1B.Text = DakikaBLM _
And SaniyeBLM = "00" Then
AlarmSesi("Başla")
End If
If alarm_Cmb2A.Text = SaatBLM _
And alarm_Cmb2B.Text = DakikaBLM _
And SaniyeBLM = "00" Then
AlarmSesi("Başla")
End If
If alarm_Cmb3A.Text = SaatBLM _
And alarm_Cmb3B.Text = DakikaBLM _
And SaniyeBLM = "00" Then
AlarmSesi("Başla")
End If
'TIMER KODLARI
If TimerAyarla = True Then
If timer_LblKronometre.Text = "00:00" Then
TimerAyarla = False
timer_BtnBASLAT.Text = "Başla"
timer_BtnBASLAT.Enabled = False
timer_LblKronometre.Enabled = False
AlarmSesi("Başla")
Exit Sub
End If
If Mid(timer_LblKronometre.Text, 4, 5) <> "00" Then
Dim SecilenKrnm As String = Mid(timer_LblKronometre.Text, 4, 5) - 1
IKI(SecilenKrnm)
timer_LblKronometre.Text = Mid(timer_LblKronometre.Text, 1, 2) & ":" & SecilenKrnm
Else
Dim Basamak As String = Mid(timer_LblKronometre.Text, 1, 2) - 1
IKI(Basamak)
timer_LblKronometre.Text = Basamak & ":" & "59"
End If
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If AlarmCal = True Then
My.Computer.Audio.Play(My.Resources.BipBip, AudioPlayMode.Background)
eylemSuresi += 1
End If
If eylemSuresi > 15 Then
Timer2.Interval = 200
End If
If eylemSuresi > 215 Then
AlarmSesi("Dur")
btnDUR.BackColor = SystemColors.Control
btnDUR.ForeColor = SystemColors.ControlText
End If
End Sub
Private Sub AlarmSesi(ByVal eylem)
Select Case eylem
Case "Başla"
AlarmCal = True
btnDUR.Enabled = True
btnDUR.BackColor = Color.Red
btnDUR.ForeColor = Color.White
Case ("Dur")
AlarmCal = False
btnDUR.Enabled = False
btnDUR.BackColor = SystemColors.Control
btnDUR.ForeColor = SystemColors.ControlText
eylemSuresi = 0
Timer2.Interval = 1000
End Select
End Sub
Private Sub IKI(ByRef deger)
If deger < 10 Then
deger = "0" & deger
End If
End Sub
End Class
</textarea></div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0tag:blogger.com,1999:blog-6971042533210809458.post-79751557792619409392016-04-09T18:53:00.001-07:002016-04-09T19:00:24.447-07:00SON ÇALIŞILAN DOSYALARSON ÇALIŞILAN DOSYALARI GÖRME,ÇALIŞTIRMA.SİLME PROJESİ <b><a href="https://onedrive.live.com/redir?resid=FB3D9FFC49278E36!2295&authkey=!AJbu-ilxd9jpHfA&ithint=file%2crar" target="_blank">İNDİR</a></b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgiGcasADxqJLGrbd51x36fDURJbM8bvexgM5goWVBVJdeqDYqqwMLo6hupZxxyNVavJbKiVaBfk_iW5SZwZbJy3_6riZDiiuUF7xvyTlf9cwuWe4GzJbfijHeQLeSewdSKJ4khzM2o-Io/s1600/s%25C3%25A7d_1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgiGcasADxqJLGrbd51x36fDURJbM8bvexgM5goWVBVJdeqDYqqwMLo6hupZxxyNVavJbKiVaBfk_iW5SZwZbJy3_6riZDiiuUF7xvyTlf9cwuWe4GzJbfijHeQLeSewdSKJ4khzM2o-Io/s1600/s%25C3%25A7d_1.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjU8ADaJcUScJEfYQrCJNst5ymgDl3Jg9_2Anv4_BtKWdKHAD3mrgZvL2o16m6YuRwm-CqHKZdXqSngb5S9rLFHgOXbs8l4DkYDxEtMruXa9fJvF76grTnur4EKAKwsiJ4sYsW0e-kEduc/s1600/s%25C3%25A7d.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjU8ADaJcUScJEfYQrCJNst5ymgDl3Jg9_2Anv4_BtKWdKHAD3mrgZvL2o16m6YuRwm-CqHKZdXqSngb5S9rLFHgOXbs8l4DkYDxEtMruXa9fJvF76grTnur4EKAKwsiJ4sYsW0e-kEduc/s1600/s%25C3%25A7d.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<textarea class="bginput" cols="42" name="ERDOĞAN ASLAN" onclick="this.focus();this.select()" rows="5" style="height: 270px; margin: 0px; width: 620px;">Imports System.IO, System.Diagnostics, System.ComponentModel
Public Class Form1
Dim SonCalDsyKlasoru As String = Environment.GetFolderPath(Environment.SpecialFolder.Recent)
Private Property eleman As ListViewItem
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
SCDsyGosterBtn.PerformClick()
End Sub
Private Sub SCDsyGosterBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SCDsyGosterBtn.Click
ListView1.Items.Clear()
Dim lstitem As New ListViewItem()
imageList1.Images.Clear()
For Each SonCalDsy In Directory.GetFiles(SonCalDsyKlasoru)
Dim yol As String
yol = Path.GetFileNameWithoutExtension(SonCalDsy)
imageList1.Images.Add(SonCalDsy, Icon.ExtractAssociatedIcon(SonCalDsy)) 'Dosya adı ve ikonu
lstitem = ListView1.Items.Add(Path.GetFileNameWithoutExtension(SonCalDsy), SonCalDsy)
lstitem.SubItems.Add(New FileInfo(SonCalDsy).CreationTime.ToLongDateString()) 'Tarih ToLongDateString
lstitem.SubItems.Add(SonCalDsy) 'yol ekle
Next
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Try
Process.Start(TextBox1.Text)
Catch m As Win32Exception
End Try
End Sub
Private Sub openToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcTSm.Click, DosyaAçTSmn.Click
ListView1_DoubleClick(sender, e)
End Sub
Private Sub openLocationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DsyKlsAcTsm.Click, DsyKlsAçTsmn.Click
Process.Start(SonCalDsyKlasoru)
End Sub
Private Sub TumSilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TumSilTsm.Click
For Each TumCalDsy In Directory.GetFiles(SonCalDsyKlasoru)
File.Delete(TumCalDsy)
Next
ListView1.Items.Clear()
End Sub
Dim DosyaSil As String
Private Sub SecilSilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SecilSilTsm.Click
For Each selected In ListView1.SelectedItems
DosyaSil = selected.ToString.Remove(0, selected.ToString.IndexOf("{") + 1).Replace("}", "")
File.Delete(DosyaSil)
ListView1.Items.RemoveByKey(DosyaSil)
Next
End Sub
Private Sub SilTsm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilTsm.Click
File.Delete(ListView1.SelectedItems(0).Text)
ListView1.Items.RemoveByKey(ListView1.SelectedItems(0).Text)
End Sub
Private Sub ListView1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
If (ListView1.SelectedItems.Count > 0) Then
'contextMenuStrip3.Show(ListView1, 0, -50)
contextMenuStrip1.Show(ListView1, ListView1.SelectedItems(0).Position.X + 20, ListView1.SelectedItems(0).Position.Y + 20)
End If
End If
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim sayi As Integer = ListView1.Items.Count
Dim eleman As ListViewItem
For i As Integer = 0 To sayi - 1
eleman = ListView1.Items(i)
If eleman.Selected Then
Label1.Text = ListView1.Items(i).SubItems(0).Text
TextBox1.Text = ListView1.Items(i).SubItems(2).Text
End If
Next
End Sub
#Region " ESC İLE KAPATMA, DELETE İLE SATIR SİLME...."
Private Sub ListView1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
If e.KeyCode = Keys.Delete Then
Call ListedenSatırSil()
End If
If e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub
Public Sub ListedenSatırSil()
On Error Resume Next
Dim indeksler As ListView.SelectedIndexCollection = ListView1.SelectedIndices
Dim index As Integer
TextBox1.Text = Nothing
For Each index In indeksler
ListView1.Items.RemoveAt(index)
Next
If index = 0 Then index = 0
index = index - 1
If index = -1 Then index = 0
eleman = ListView1.Items(index)
eleman.Selected = True
ListView1.Focus()
End Sub
#End Region
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim yol As String = Application.StartupPath & "\zzz"
Try
For Each file As IO.FileInfo In New IO.DirectoryInfo(yol).GetFiles("*.txt")
If (Now - file.CreationTime).Days < 7 Then file.Delete()
Next
MsgBox(yol & " *.TXT Dosyaları silindi")
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class
</textarea>Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0tag:blogger.com,1999:blog-6971042533210809458.post-31267042512790233762016-03-31T14:26:00.002-07:002022-01-21T01:51:32.847-08:00WİNDOWS 10 AYARLARI<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<b><span style="color: #cc0000;">WİNDOWS 10 AYAR</span></b><b style="text-align: left;"><span style="color: #cc0000;">_Hlp </span>-</b><b><span style="color: #cc0000;">_KOD_</span></b><b style="text-align: left;">- v.2.3.08.18</b> <b><a href="https://drive.google.com/file/d/1gmylICvz94eYpDJ3U6mIFCpZTnp0d7ep/view?usp=sharing" target="_blank">İNDİR</a></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="color: #e69138;">WİNDOWS 10 AYAR </span></b><b style="text-align: left;">- v.2.3.08.18</b> -<b><span style="color: #cc0000;">EXE</span></b> <b><a href="https://drive.google.com/file/d/1n3I6f05hN38YEnJt4PIfKux3sRx8eLkj/view?usp=sharing" target="_blank">İNDİR</a></b></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
11.11.2018 <b style="text-align: left;">- v.2.3.08.18</b> </div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgq8PUhJl4NDqGR7qJY2C1K1zaIEa11YdsNThNgLQBoxovRpl7ymR2fiDXjSIRS5Y0uhpIxrzPG5MXDbwhzqHXeVvFJ4HenfPHGKysKo0A10B1wd7je960xfNV7P5toUO4x_inDzv8TWoE/s1600/w0.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="533" data-original-width="514" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgq8PUhJl4NDqGR7qJY2C1K1zaIEa11YdsNThNgLQBoxovRpl7ymR2fiDXjSIRS5Y0uhpIxrzPG5MXDbwhzqHXeVvFJ4HenfPHGKysKo0A10B1wd7je960xfNV7P5toUO4x_inDzv8TWoE/s1600/w0.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsv-jZjjhtVj8KNqXWxzAls_zgHfc4esg7hYl0NKCtTmqsl2dboLRHhpvkC9A1FCZZDnE2WZkCMJXlzQhOR_Y_YvsfwgmPCbU8N5gRsyTnQ4UGLaI3b-9wAVdVwctaRbdfnCaXHUFXltI/s1600/w1.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="533" data-original-width="514" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsv-jZjjhtVj8KNqXWxzAls_zgHfc4esg7hYl0NKCtTmqsl2dboLRHhpvkC9A1FCZZDnE2WZkCMJXlzQhOR_Y_YvsfwgmPCbU8N5gRsyTnQ4UGLaI3b-9wAVdVwctaRbdfnCaXHUFXltI/s1600/w1.png" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGMvbjeoXb2BxC9HXsW3FFwJj0dUIrR42rZehs6vPYs8P6b8MfI_WO2BcL7SGQMohnp6osySkTayENwM6E2Zm1pQ6jGuPLbnMdYm4Khqog_It4HEbwazFiVv3cSMGCxEowkGqgxkBAHoc/s1600/w2.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="533" data-original-width="514" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGMvbjeoXb2BxC9HXsW3FFwJj0dUIrR42rZehs6vPYs8P6b8MfI_WO2BcL7SGQMohnp6osySkTayENwM6E2Zm1pQ6jGuPLbnMdYm4Khqog_It4HEbwazFiVv3cSMGCxEowkGqgxkBAHoc/s1600/w2.png" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<br />
<span style="color: #3d85c6;">Form1.vb</span><br />
<textarea class="bginput" cols="42" name="ERDOĞAN ASLAN" onclick="this.focus();this.select()" rows="5" style="height: 170px; width: 620px;">Imports System.Environment
Imports System.Net
Imports System.IO
' Register kayıt değişikliği için Yönetici yetkisi gerekir (My Project / View Windows setting) düğmesinden
' <requestedexecutionlevel level="requireAdministrator" uiAccess="false" /> KISMINDAKİ
'renkli (asInvoker) ayarını (requireAdministrator) olarak değiştir
Public Class Form1
Public TaskMngKapalı As Boolean = False
Friend yol As String = Application.StartupPath
#Region " FORM İŞLEMLERİ "
Private Property BluetoothAuthenticationAgent As Object
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If Me.Top < 0 Or Me.Left < 0 Then
Me.Top = 100 : Me.Left = 500
End If
SaveSetting(Application.ProductName, Application.ProductName, "Üst", Me.Top)
SaveSetting(Application.ProductName, Application.ProductName, "Sol", Me.Left)
SaveSetting(Application.ProductName, Application.ProductName, " Tab index", TabControl1.SelectedIndex)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListeYukle(OzelKlasörListesi, GetType(Environment.SpecialFolder))
Me.Text = "WIN 10 AYARLARI" & "- V." & Application.ProductVersion
Me.Top = GetSetting(Application.ProductName, Application.ProductName, "Üst", 300)
Me.Left = GetSetting(Application.ProductName, Application.ProductName, "Sol", 500)
If Me.Top < 0 Or Me.Left < 0 Then
Me.Top = 100 : Me.Left = 500
End If
'Ctrl+Alt+Del tuşlarını iptal mesajı
'Başlangıç Menüsü mesajı
ToolTip1.SetToolTip(Win10BaslangicMn, "Fare Sağ Tuşu ile Yardım al") '& vbCrLf & "(Başlangıç Menüsü için) Kapat Onay iste Seçili olsun")
ToolTip1.IsBalloon = True
TabControl1.SelectedIndex = GetSetting(Application.ProductName, Application.ProductName, " Tab index", 0)
'FORMUN AUTOSİZEMODE= growandshrink 'yapılınca boyut sabitlenir
Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
Windows.Forms.Cursor.Current = Cursors.AppStarting
LinkLabel1.Text = "Bilgisayar Dünyası"
LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://eraslancemil.blogspot.com/")
Dim sys As String = My.Computer.Info.OSFullName
'Windos 8 veya 8.1 veya win 10 Pro değilse Düğmeyi Pasif yap
If sys <> "Microsoft Windows 8.1 Single Language" And _
sys <> "Microsoft Windows 8 Single Language" And _
sys <> "Microsoft Windows 10 Pro" Then Win10Btn.Enabled = False : Win10BaslangicMn.Enabled = False
End Sub
#Region " Enum (Sıralama) İşleme..."
Private Sub ListeYukle(ByVal lst As ListBox, ByVal typ As Type)
lst.DataSource = System.Enum.GetNames(typ)
End Sub
Private Function GetSpecialFolderFromList() As Environment.SpecialFolder
Return CType(System.Enum.Parse(GetType(Environment.SpecialFolder), _
OzelKlasörListesi.SelectedItem.ToString), Environment.SpecialFolder)
End Function
#End Region
Private Sub OzelKlasörListesi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OzelKlasörListesi.SelectedIndexChanged
Dim sf As Environment.SpecialFolder
sf = GetSpecialFolderFromList()
If OzelKlasörListesi.Text = "MyComputer" Then
OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
Exit Sub
End If
OzelKlasorLbl.Text = GetFolderPath(sf)
End Sub
#End Region
#Region " DENETİM MASASI "
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
If My.Computer.Network.IsAvailable = False Then
MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
Exit Sub
End If
System.Diagnostics.Process.Start(e.Link.LinkData)
End Sub
#End Region
#Region " KAPAT, UYKU, KİLİTLE, YENİDEN BAŞLAT, OTURUM KAPAT "
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Shell("Shutdown -s") '>> Kapat
'Shell("Shutdown -r") >> Yeniden Başlat
'Shell("Shutdown -l") >> Oturumu kapat
'Shell("Shutdown -h") >> Hibernate-Uyku
'Shell("Shutdown -a") >> Abort
Dim onay As DialogResult
onay = MessageBox.Show("Bilgisayar Kapatılsın mı?", "Kapat", MessageBoxButtons.YesNo)
If (onay = DialogResult.Yes) Then
System.Diagnostics.Process.Start("shutdown.exe", "-s -t 0") 'Kapat
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'Oturumu kapat -kilit
Shell("Shutdown -l")
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'Kilitle - oklar
Shell("rundll32.exe PowrProf.dll,SetSuspendState")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
'Uykuya al -askıya al
Shell("Shutdown -h")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'Shell("Shutdown -r") >> Yeniden Başlat
Dim onay As DialogResult
onay = MessageBox.Show("Yeniden Başlatılsın mı?", "Yeniden Başlat", MessageBoxButtons.YesNo)
If (onay = DialogResult.Yes) Then
Shell("Shutdown -r")
End If
End Sub
#End Region
#Region " BUTON İŞLEMLERİ.... "
Private Sub Win10Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Win10Btn.Click
'win 10 için
Try
'Dim info As New ProcessStartInfo("bthprops.cpl") 'Ayarlar WIN 10 için
'Process.Start(info)
DurumLbl.Text = Application.StartupPath & "\reg\Ayarlar.lnk"
DurumLbl_Click(sender, e)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Win10BaslangicMn_Click(sender As System.Object, e As System.EventArgs) Handles Win10BaslangicMn.Click
Dim onay As DialogResult
onay = MessageBox.Show("WIN 10 Başlangıç Menüsü Başlatılsın mı?" & vbCrLf & " " & vbCrLf & " Lütfen Yardım kısmını okuyunuz " & vbCrLf & " İşlem Yapmayacaksanız (Hayır) ı seçiniz !", "WIN 10 Başlangıç Menü İşlemleri", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If (onay = DialogResult.Yes) Then
'onay>iptal=2, Hayır=7,Evet=6
DurumLbl.Text = Application.StartupPath & "\reg\Gelişmiş Başlangıç Menüsü.lnk"
DurumLbl_Click(sender, e)
End If
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
System.Diagnostics.Process.Start("C:\Windows\System32\regedt32.exe")
End Sub
Private Sub OzelKlasörListesi_DoubleClick(sender As System.Object, e As System.EventArgs) Handles OzelKlasörListesi.DoubleClick
Dim KullAdi As String = SystemInformation.UserName
Try
If OzelKlasörListesi.Text = "MyComputer" Then
System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
Exit Sub
End If
If OzelKlasörListesi.Text = "Windows" Then
Process.Start("explorer.exe", OzelKlasorLbl.Text)
Exit Sub
End If
If OzelKlasörListesi.Text = "UserProfile" Then
Process.Start("explorer.exe", OzelKlasorLbl.Text)
Exit Sub
End If
Process.Start(OzelKlasorLbl.Text)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
Process.Start("control", "printers")
End Sub
Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
Process.Start("control", "userpasswords")
End Sub
Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
System.Diagnostics.Process.Start("control.exe")
End Sub
Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
'hepsi de Bilgisayarım 'ı Açar
'-------------------------------------
'userinit.exe bu bilgisayar
'System.Diagnostics.Process.Start("userinit.exe")
'-------------------------------------
OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
'-------------------------------------
'Bilgisayar klasörünü Aç
'System.Diagnostics.Process.Start("Explorer", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
End Sub
Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
Dim info As New ProcessStartInfo("taskmgr.exe")
Process.Start(info)
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
On Error Resume Next
'Masaüstü Simge Ayaraı
DurumLbl.Text = yol & "\reg\MasaustuSimgeAyarlari.lnk"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click
''appwiz.cpl 'program kaldır
Try
Dim info As New ProcessStartInfo("%windir%system32\appwiz.cpl")
Process.Start("appwiz.cpl")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button16_Click(sender As System.Object, e As System.EventArgs) Handles Button16.Click
'calc()
Dim info As New ProcessStartInfo("calc.exe")
Process.Start(info)
End Sub
Private Sub Button18_Click(sender As System.Object, e As System.EventArgs) Handles Button18.Click
'ses düzey karıştırıcı 'C:\Windows\System32\SndVol.exe
Try
Dim info As New ProcessStartInfo("SndVol.exe")
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button19_Click(sender As System.Object, e As System.EventArgs) Handles Button19.Click
'"%windir%system32\perfmon.exe performans izleyici
Try
Dim info As New ProcessStartInfo("perfmon.exe")
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button20_Click(sender As System.Object, e As System.EventArgs) Handles Button20.Click
''Netplwiz.exe Kullanıcı Hesapları
Try
Dim info As New ProcessStartInfo("Netplwiz.exe")
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button21_Click(sender As System.Object, e As System.EventArgs) Handles Button21.Click
'"%windir%system32\SystemPropertiesPerformance.exe Sistem özellikleri-PERFORMANS
Try
Dim info As New ProcessStartInfo("SystemPropertiesPerformance.exe")
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
'"%windir%system32\cttune.exe ClearType Metin Ayarlayıcı
Dim info As New ProcessStartInfo("cttune.exe")
Process.Start(info)
End Sub
Private Sub Button23_Click(sender As System.Object, e As System.EventArgs) Handles Button23.Click
'C:\Windows\System32\wscui.cpl Sistem ve Güvenlik İşlem Merkezi
Dim info As New ProcessStartInfo("wscui.cpl")
Process.Start(info)
End Sub
Private Sub Button24_Click(sender As System.Object, e As System.EventArgs) Handles Button24.Click
'"%windir%system32\UserAccountControlSettings.exe Kullanıcı Hesbı denetim Ayarları (UAC)
Dim info As New ProcessStartInfo("UserAccountControlSettings.exe")
Process.Start(info)
End Sub
Private Sub Button25_Click(sender As System.Object, e As System.EventArgs) Handles Button25.Click
'Dosya Yedekle ve Geri Yükle
Process.Start("control", "wscui.cpl")
End Sub
Private Sub Button26_Click(sender As System.Object, e As System.EventArgs) Handles Button26.Click
'"%windir%system32\msconfig.exe Sistem yapılandırma
Dim info As New ProcessStartInfo("msconfig.exe")
Process.Start(info)
End Sub
Private Sub Button28_Click(sender As System.Object, e As System.EventArgs) Handles Button28.Click
'"%windir%system32\psr.exe Sorun Adınmlarını kaydedici
Dim info As New ProcessStartInfo("psr.exe")
Process.Start(info)
End Sub
Private Sub Button29_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button29.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button29, "Önce (Sistem ve Güvenlik) sonra (system) " & vbCrLf & "Linkine Tıklayın")
End Sub
Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
System.Diagnostics.Process.Start("explorer.exe", "/e,/select,c:")
'OzelKlasorLbl.Text = "explorer.exe" & "," & "/e" & ",/select,c:"
'C:\WINDOWS\system32
' '' ''System.Diagnostics.Process.Start("control.exe")
'Dim aranan As String = "System" ' 0 cı indexten başlaması için -1 yazıyoruz.
'Dim index As Integer = OzelKlasörListesi.FindString(aranan, -1)
'If index <> -1 Then
' OzelKlasörListesi.SetSelected(index, True) ' varsa seçili duruma gelir
'End If
'DurumLbl.Text = "C:\WINDOWS\system32"
'DurumLbl_Click(sender, e)
End Sub
Private Sub Button30_Click(sender As System.Object, e As System.EventArgs) Handles Button30.Click
'"%windir%system32\hdwwiz.exe Donanım Ekleme Sihirbazı
Dim info As New ProcessStartInfo("hdwwiz.exe")
Process.Start(info)
End Sub
Private Sub Button31_Click(sender As System.Object, e As System.EventArgs) Handles Button31.Click
'"%windir%system32\hdwwiz.cpl Aygıt yöneticisi
Dim info As New ProcessStartInfo("hdwwiz.cpl")
Process.Start(info)
End Sub
Private Sub Button32_Click(sender As System.Object, e As System.EventArgs) Handles Button32.Click
'"%windir%system32\mmsys.cpl ' Ses
Dim info As New ProcessStartInfo("mmsys.cpl")
Process.Start(info)
End Sub
Private Sub Button33_Click(sender As System.Object, e As System.EventArgs) Handles Button33.Click
Call CtrAltDelFrm.TaskMng_Kilitle()
Me.Button33.Text = "Kilitli"
Me.Button33.BackColor = Color.Red
End Sub
Private Sub PictureBox23_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox23.Click
'Taskmng aç
Call CtrAltDelFrm.TaskMgr_Calistir()
End Sub
Private Sub Button35_Click(sender As System.Object, e As System.EventArgs) Handles Button35.Click
'%windir%\system32\msinfo32.exe Sistem Bilgisi
Dim info As New ProcessStartInfo("msinfo32.exe")
Process.Start(info)
End Sub
Private Sub Button36_Click(sender As System.Object, e As System.EventArgs) Handles Button36.Click
'"%windir%system32\SystemPropertiesHardware.exe Sistem özellikleri-DONANIM
Dim info As New ProcessStartInfo("SystemPropertiesHardware.exe")
Process.Start(info)
End Sub
Private Sub Button37_Click(sender As System.Object, e As System.EventArgs) Handles Button37.Click
'"%windir%system32\SystemPropertiesAdvanced.exe Sistem özellikleri-GELİŞMİŞ
Dim info As New ProcessStartInfo("SystemPropertiesAdvanced.exe")
Process.Start(info)
End Sub
Private Sub Button39_Click(sender As System.Object, e As System.EventArgs) Handles Button39.Click
'"%windir%system32\rstrui.exe Sistemi geri Yükleme
Try
Process.Start("rstrui.exe")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button40_Click(sender As System.Object, e As System.EventArgs) Handles Button40.Click
''win 10 için
Try
DurumLbl.Text = Application.StartupPath & "\reg\Ayarlar.lnk"
DurumLbl_Click(sender, e)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button41_Click(sender As System.Object, e As System.EventArgs) Handles Button41.Click
'"C:\Windows\System32\ncpa.cpl" AĞ BAĞLANTILARI
Dim info As New ProcessStartInfo("ncpa.cpl")
Process.Start(info)
' başka bir kodalama biçimi
''"C:\Windows\System32\ncpa.cpl"
'DurumLbl.Text = "C:\Windows\System32\ncpa.cpl"
'DurumLbl_Click(sender, e)
End Sub
Private Sub Button42_Click(sender As System.Object, e As System.EventArgs) Handles Button42.Click
'"%windir%system32\msra.exe
Dim info As New ProcessStartInfo("msra.exe")
Process.Start(info)
End Sub
Private Sub Button43_Click(sender As System.Object, e As System.EventArgs) Handles Button43.Click
'"%windir%system32\SystemPropertiesRemote.exe Sistem özellikleri-UZAK
Dim info As New ProcessStartInfo("SystemPropertiesRemote.exe")
Process.Start(info)
End Sub
Private Sub Button44_Click(sender As System.Object, e As System.EventArgs) Handles Button44.Click
'"%windir%system32\cliconfg.exe Ağ Yardımcı Programı
Dim info As New ProcessStartInfo("cliconfg.exe")
Process.Start(info)
End Sub
Private Sub Button47_Click(sender As System.Object, e As System.EventArgs) Handles Button47.Click
If My.Computer.Network.IsAvailable = True Then
Dim info As New ProcessStartInfo("nslookup.exe")
Process.Start(info)
Else
MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
End If
End Sub
Private Sub Button52_Click(sender As System.Object, e As System.EventArgs) Handles Button52.Click
Try
Dim info As New ProcessStartInfo("powercfg.cpl") 'Güç seçenekleri
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button54_Click(sender As System.Object, e As System.EventArgs) Handles Button54.Click
Try
Dim info As New ProcessStartInfo("timedate.cpl") 'Tarih Ve Saat
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button53_Click(sender As System.Object, e As System.EventArgs) Handles Button53.Click
Try
Dim info As New ProcessStartInfo("desk.cpl") 'Ekran Çözünürlüğü
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button55_Click(sender As System.Object, e As System.EventArgs) Handles Button55.Click
Try
Dim info As New ProcessStartInfo("Firewall.cpl") 'Windows güvenlik Duvarı
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click
''"%windir%system32\dfrgui.exe Disk Birleştirici
Try
Process.Start("dfrgui.exe")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button60_Click(sender As System.Object, e As System.EventArgs) Handles Button60.Click
'%windir%\system32\cleanmgr.exe Disk Temizle
Dim info As New ProcessStartInfo("cleanmgr.exe")
Process.Start(info)
End Sub
Private Sub Button59_Click(sender As System.Object, e As System.EventArgs) Handles Button59.Click
'C:\Windows\System32\diskmgmt.msc Disk Yönetimi (Bölümleme)
Dim info As New ProcessStartInfo("diskmgmt.msc")
Process.Start(info)
End Sub
Private Sub Button17_Click(sender As System.Object, e As System.EventArgs) Handles Button17.Click
'"%windir%system32\colorcpl.exe Renk Yönetimi
Dim info As New ProcessStartInfo("Colorcpl.exe")
Process.Start(info)
End Sub
Private Sub Button61_Click(sender As System.Object, e As System.EventArgs) Handles Button61.Click
'"%windir%system32\dccw.exe Ekran Renk Ayarı
Dim info As New ProcessStartInfo("dccw.exe")
Process.Start(info)
End Sub
Private Sub Button62_Click(sender As System.Object, e As System.EventArgs) Handles Button62.Click
'"%windir%system32\DpiScaling.exe Ekranın Okunmasını Kolaylaştır
Dim info As New ProcessStartInfo("DpiScaling.exe")
Process.Start(info)
End Sub
Private Sub Button63_Click(sender As System.Object, e As System.EventArgs) Handles Button63.Click
'"%windir%system32\MdSched.exe Windows Bellek tanılama
Dim info As New ProcessStartInfo("MdSched.exe")
Process.Start(info)
End Sub
Private Sub Button65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
'"%windir%system32\dcomcnfg.exe Bileşen Hizmetleri
Dim info As New ProcessStartInfo("dcomcnfg.exe")
Process.Start(info)
End Sub
Private Sub Button66_Click(sender As System.Object, e As System.EventArgs) Handles Button66.Click
'"%windir%system32\msra.exe Windows Uzaktan Yardım
'"%windir%system32\mstsc.exe Uzak masaÜstü bağlantısı
Dim info As New ProcessStartInfo("mstsc.exe")
Process.Start(info)
End Sub
Private Sub Button67_Click(sender As System.Object, e As System.EventArgs) Handles Button67.Click
'%windir%\system32\narrator.exe ekran okuyucu
Dim info As New ProcessStartInfo("narrator.exe")
Process.Start(info)
End Sub
Private Sub Button69_Click(sender As System.Object, e As System.EventArgs) Handles Button69.Click
''"%windir%system32\Utilman.exe Erişim Kolaylığı merkezi
Dim info As New ProcessStartInfo("Utilman.exe") 'win 8.1 de çalışmıyor
'Dim info As New ProcessStartInfo("control.exe")
Process.Start(info)
End Sub
Private Sub Button70_Click(sender As System.Object, e As System.EventArgs) Handles Button70.Click
'"%windir%system32\OptionalFeatures.exe Windows Özelliklerini Aç Kapat
Dim info As New ProcessStartInfo("OptionalFeatures.exe")
Process.Start(info)
End Sub
Private Sub Button71_Click(sender As System.Object, e As System.EventArgs) Handles Button71.Click
'"%windir%system32\lpksetup.exe Görüntüleme Dillerini Ekle kaldır
Dim info As New ProcessStartInfo("lpksetup.exe")
Process.Start(info)
End Sub
Private Sub Button72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button72.Click
'"%windir%system32\credwiz.exe Depolanan Kullanıcı Adı ve Parolalar
Dim info As New ProcessStartInfo("credwiz.exe")
Process.Start(info)
End Sub
Private Sub Button73_Click(sender As System.Object, e As System.EventArgs) Handles Button73.Click
'"%windir%system32\DevicePairingWizard.exe Aygıt Ekle
Dim info As New ProcessStartInfo("DevicePairingWizard.exe")
Process.Start(info)
End Sub
Private Sub Button74_Click(sender As System.Object, e As System.EventArgs) Handles Button74.Click
'"%windir%system32\SystemPropertiesProtection.exe Sistem özellikleri-SİSTEM KORUMA
Dim info As New ProcessStartInfo("SystemPropertiesProtection.exe") ' Sistem Koruma (Geri yükleme noktası oluşturma,silme)
Process.Start(info)
End Sub
Private Sub Button27_Click(sender As System.Object, e As System.EventArgs) Handles Button27.Click
Try
Dim info As New ProcessStartInfo("main.cpl") ' Fare Özellikleri
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
'Private Sub Button34_Click(sender As System.Object, e As System.EventArgs)
' 'Menüde YOK
' ''Gözatma geçmişi sil
' 'Shell("C:\Windows\System32\RunDll32.exe C:\Windows\System32\InetCpl.cpl,ClearMyTracksByProcess 1", AppWinStyle.Hide)
'End Sub
#End Region
#Region " BUTON BALON AÇIKLAMALARI.. "
Private Sub Button21_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button21.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button21, "*Performans Seçenekleri*" & vbCrLf & "Görsel Efekt Ayarları" _
& vbCrLf & "İşlemci zamanlaması" & vbCrLf & "Veri Yürütme Engellemesi.")
End Sub
Private Sub Button23_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button23.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button23, "Güvenlik" & vbCrLf & "Bakım" _
& vbCrLf & "Sorun Giderme" & vbCrLf & "Kurtarma")
End Sub
Private Sub Button25_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button25.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button25, "Kurtarma Sürücüsü oluştur" & vbCrLf & "Sistem Geri Yüklemeyi Aç" _
& vbCrLf & "Sistem Geri Yüklemeyi Yapılandır" & vbCrLf & "Dosya Geçmişi")
End Sub
Private Sub Button31_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button31.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button31, "Uçak Modu,Donanım Aygıtlarını ekleyin, görün, kaldırın" & vbCrLf & "Resimli anlatım (Sağ fare Tuşuna) tıkla")
End Sub
Private Sub Button37_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button37.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button37, "Performans, kullanıcı profilleri, Başlangıç ve Kurtarma Ayarları")
End Sub
Private Sub Button39_MouseHover(sender As System.Object, e As System.EventArgs)
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button39, "Bilgisayar Sisteminizi " & vbCrLf & "Önceki bir duruma yükleyin")
End Sub
Private Sub Button40_MouseHover(sender As System.Object, e As System.EventArgs)
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button40, "Bilgisayarınızı Güncelleyin")
End Sub
Private Sub Button59_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button59.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button59, "Disk Bölümleyin")
End Sub
Private Sub Button62_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button62.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button62, "** Görüntü Ayarları **" & vbCrLf & "1-Öğelerin ve Metin boyutunu değiştir" _
& vbCrLf & "2-Aygıt ve Yazıcılar" & vbCrLf & "3-Renk, Çözünürlük, Parlaklık Ayarla" _
& vbCrLf & "4-İkinci Ekrana yansıt" & vbCrLf & "5-Kişiselleştirme")
End Sub
Private Sub Button74_MouseHover(sender As System.Object, e As System.EventArgs) Handles Button74.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button74, "** SİSTEM KORUMASI **" & vbCrLf & "1-Sistem Geri Yükleme" _
& vbCrLf & "2-Geri Yükleme Ayar Yapılandırma" & vbCrLf & "3-Yükleme Noktası oluşturma" _
& vbCrLf & "4-Yükleme Noktası Silme")
End Sub
#End Region
#Region " G E N E L İŞLEMLERİ.... "
Private Sub DurumLbl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DurumLbl.Click
On Error Resume Next
Windows.Forms.Cursor.Current = Cursors.AppStarting
Process.Start(DurumLbl.Text)
End Sub
Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
On Error Resume Next
DurumLbl.Text = yol & "\reg\KlasorSecenekleri.lnk"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
On Error Resume Next
'IP_Goster.vbs
'DurumLbl.Text = yol & "\reg\ipconfig_all_komutu.vbs"
If My.Computer.Network.IsAvailable = True Then
'MsgBox("Bilgisayarınız İnternete Bağlı.")
DurumLbl.Text = yol & "\reg\IP_Goster.vbs"
'Process.Start(DurumLbl.Text)
DurumLbl_Click(sender, e)
Else
MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
End If
End Sub
Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click
DurumLbl.Text = "c:\windows\system32\inetcpl.cpl"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
'Veri Yürütme engellemesi
DurumLbl.Text = "c:\windows\system32\SystemPropertiesDataExecutionPrevention.exe"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click
'bu kod ile diğeri aynı işlevi görür
'Dim myProcess As Process = System.Diagnostics.Process.Start("C:\Windows\System32\cmd.exe /k %windir%\system32\ipconfig.exe")
Dim myProcess As Process = System.Diagnostics.Process.Start("C:\Windows\System32\cmd.exe", "/K ipconfig")
myProcess.WaitForExit()
myProcess.Close()
End Sub
Private Sub Button68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button68.Click
'Ayrıntılı IP ve Mac Adresşini Gör
DurumLbl.Text = yol & "\reg\ipconfig_all_komutu.vbs"
If My.Computer.Network.IsAvailable = True Then
DurumLbl.Text = yol & "\reg\ipconfig_all_komutu.vbs"
DurumLbl_Click(sender, e)
Else
MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
End If
End Sub
Private Sub Button77_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'c:\windows\system32\cliconfg.exe Ağ Yardımcı Programı
DurumLbl.Text = "c:\windows\system32\cliconfg.exe"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button78.Click
'internet Seçenekleri
'c:\windows\system32\inetcpl.cpl
DurumLbl.Text = "c:\windows\system32\inetcpl.cpl"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button79_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button79.Click
'c:\windows\system32\SystemPropertiesPerformance.exe Sistem özellikleri-PERFORMANS
DurumLbl.Text = "c:\windows\system32\SystemPropertiesPerformance.exe"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button80_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button80.Click
'c:\windows\system32\DpiScaling.exe Ekranın Okunmasını Kolaylaştır
DurumLbl.Text = "c:\windows\system32\DpiScaling.exe"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
DurumLbl.Text = yol & "\reg\Varsayilanyaziciyidegistir.lnk"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
On Error Resume Next
'Yaziciekle.lnk
DurumLbl.Text = yol & "\reg\Yaziciekle.lnk"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
Shell("C:\Windows\System32\RunDll32.exe C:\Windows\System32\InetCpl.cpl,ClearMyTracksByProcess 1", AppWinStyle.Hide)
End Sub
Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click
'c:\windows\system32\MdSched.exe Windows Bellek tanılama
DurumLbl.Text = "c:\windows\system32\MdSched.exe"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button75.Click
'c:\windows\system32\SnippingTool.exe Ekran yakalama Aracı
DurumLbl.Text = "c:\windows\system32\SnippingTool.exe"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button76_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button76.Click
'c:\windows\system32\ComputerDefaults.exe Program erişimini ve Bilgisayar Varsayılanlarını Ayarla
DurumLbl.Text = "c:\windows\system32\ComputerDefaults.exe"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button77_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button77.Click
'DisplaySwitch.exe()
System.Diagnostics.Process.Start("DisplaySwitch.exe")
End Sub
Private Sub Button81_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button81.Click
On Error Resume Next
'KlavyelerveDiller.lnk
DurumLbl.Text = yol & "\reg\KlavyelerveDiller.lnk"
DurumLbl_Click(sender, e)
End Sub
Private Sub Button14_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Button14, "MasaÜstü Simge Ayarları" _
& vbCrLf & "1- Bilgisayar" & vbCrLf & "2- Kullanıcı Dosyaları " & vbCrLf & _
"3- Geri Dönüşüm Kutusu" & vbCrLf & "4_ Ağ" & vbCrLf & "5- Denetim Masası" & vbCrLf & "İkonları eklenip kaldırılır")
End Sub
Private Sub OzelKlasorLbl_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OzelKlasorLbl.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
Clipboard.SetText(OzelKlasorLbl.Text, TextDataFormat.Text)
End If
End Sub
Private Sub OzelKlasorLbl_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OzelKlasorLbl.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(OzelKlasorLbl, "Sağ Fare Tuşu ile Panoya alınır")
End Sub
Private Sub OzelKlasorLbl_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OzelKlasorLbl.MouseMove
Windows.Forms.Cursor.Current = Cursors.Hand
End Sub
Private Sub Button82_Click(sender As System.Object, e As System.EventArgs) Handles Button82.Click
' userinit.exe bu bilgisayar
System.Diagnostics.Process.Start("userinit.exe")
End Sub
#End Region
#Region " YARDIM-AÇIKLAMA.... "
Private Sub HlpPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles HlpPic.MouseHover
If TabControl1.SelectedIndex > 0 Then Exit Sub
If BilgiTxt.Visible = False Then
'265; 318
BilgiTxt.Top = 86
BilgiTxt.Left = 220
BilgiTxt.Width = 265
BilgiTxt.Height = 318
BilgiTxt.BringToFront() 'Öne getir
BilgiTxt.Visible = True
Else
BilgiTxt.Visible = False
End If
End Sub
Private Sub Form1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove, Win10BaslangicMn.MouseMove, Panel1.MouseMove
BilgiTxt.Visible = False
End Sub
#End Region
#Region "WIN 10 DA ÇALIŞMAYAN. "
'Private Sub Button29_Click(sender As System.Object, e As System.EventArgs) Handles Button29.Click
' '"C:\Windows\System32\control.exe system" Sistem
' 'DurumLbl.Text = "C:\Windows\System32\control.exe" ' system"
' 'DurumLbl_Click(sender, e)
' MsgBox("Düzenlenecek")
'End Sub
'Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
' 'Process.Start("WinHlp32.exe")
' MsgBox("Düzenlenecek")
'End Sub
'Private Sub Button77_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button77.Click
' ''%windir%\system32\control.exe /name Microsoft.DefaultPrograms Varsayılan Programlar
' 'DurumLbl.Text = "c:\windows\system32\control.exe /name Microsoft.DefaultPrograms"
' 'DurumLbl_Click(sender, e)
' MsgBox("Düzenlenecek")
'End Sub
'Private Sub Button47_Click(sender As System.Object, e As System.EventArgs) Handles Button47.Click
' 'C:\Windows\System32\control.exe /name Microsoft.Troubleshooting Windows Sorun Giderme
' 'DurumLbl.Text = "C:\Windows\System32\control.exe /name Microsoft.Troubleshooting"
' 'DurumLbl_Click(sender, e)
' MsgBox("Düzenlenecek")
'End Sub
'Private Sub Button69_Click(sender As System.Object, e As System.EventArgs) Handles Button69.Click
' '"%windir%system32\SoundRecorder.exe Ses kaydedici
' MsgBox("win 10 da yok")
' 'Dim info As New ProcessStartInfo("SoundRecorder.exe")
' 'Process.Start(info)
'End Sub
#End Region
Private Sub PictureBox5_Click(sender As System.Object, e As System.EventArgs)
Button11.PerformClick()
End Sub
Private Sub Button12_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button12.MouseDown
ResimFrm.Dispose()
If e.Button = Windows.Forms.MouseButtons.Right Then
ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\BuBilgisayar.png", True) 'AyarlardanSYS >BuBilgisayar.
'565 x 351
ResimFrm.Width = 600
ResimFrm.Height = 450
ResimFrm.Show()
End If
End Sub
Private Sub Button29_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button29.MouseDown
ResimFrm.Dispose()
If e.Button = Windows.Forms.MouseButtons.Right Then
ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\AyarlardanSYS.png", True)
'723 x 416
ResimFrm.Width = 600
ResimFrm.Height = 450
'741x 454 AyarlardanSYS
ResimFrm.Show()
End If
End Sub
Private Sub Button40_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button40.MouseDown
ResimFrm.Dispose()
If e.Button = Windows.Forms.MouseButtons.Right Then
'429x683
ResimFrm.Width = 400
ResimFrm.Height = 450
ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\Ayarlar_Güncelle.png", True)
ResimFrm.Show()
End If
End Sub
Private Sub Win10Btn_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Win10Btn.MouseDown
ResimFrm.Dispose()
If e.Button = Windows.Forms.MouseButtons.Right Then
ResimFrm.Width = 400
ResimFrm.Height = 450
ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\Ayarlar-mn.png", True)
ResimFrm.Show()
End If
End Sub
Private Sub Win10BaslangicMn_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Win10BaslangicMn.MouseDown
ResimFrm.Dispose()
If e.Button = Windows.Forms.MouseButtons.Right Then
ResimFrm.Width = 750
ResimFrm.Height = 450
ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\BaşlangıçMenüleri.png", True)
ResimFrm.Show()
End If
End Sub
Private Sub Button31_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Button31.MouseDown
ResimFrm.Dispose()
If e.Button = Windows.Forms.MouseButtons.Right Then
ResimFrm.Width = 500
ResimFrm.Height = 250
ResimFrm.BackgroundImage = Image.FromFile(yol & "\reg\Aygıt Yöneticisi-UçakModunu iptal_3.png", True)
ResimFrm.Show()
End If
End Sub
Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Me.Button33.Text = " Kilitle"
Me.Button33.BackColor = SystemColors.Control
Call CtrAltDelFrm.TaskMng_Ac()
Call CtrAltDelFrm.TaskMgr_Calistir()
End Sub
End Class</textarea><br />
<span style="color: #3d85c6;">ResimFrm.vb</span><br />
<textarea class="bginput" cols="42" name="ERDOĞAN ASLAN" onclick="this.focus();this.select()" rows="5" style="height: 170px; width: 620px;">Public Class ResimFrm
'Form Taşıma
Const i As Integer = &HA1
Const j As Integer = 2
Private Sub me_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
'Form Taşıma
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Capture = False
Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End Sub
Protected Overrides ReadOnly Property CreateParams() As CreateParams
'Başlıksız Form kodu
Get
Const WS_CAPTION As Integer = &HC00000
Dim baseParams As CreateParams = MyBase.CreateParams
'Başlık olmasın
baseParams.Style = baseParams.Style And Not WS_CAPTION
Return baseParams
End Get
End Property
Private Sub ResimFrm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim mousePos As Point = Control.MousePosition
Me.Location = mousePos
End Sub
Private Sub KapatPic_Click(sender As System.Object, e As System.EventArgs) Handles KapatPic.Click
Me.Dispose()
End Sub
End Class
</textarea><br />
<span style="color: #3d85c6;">CtrAltDelFrm.vb</span><br />
<textarea class="bginput" cols="42" name="ERDOĞAN ASLAN" onclick="this.focus();this.select()" rows="5" style="height: 170px; width: 620px;">Imports Microsoft.Win32
Public Class CtrAltDelFrm
Public TaskMngKapalı As Boolean = False
Public Sub TaskMgr_Calistir()
'TaskManager (Görev Yöneticisini) Çalıştır
Try
Dim info As New ProcessStartInfo("taskmgr.exe")
Process.Start(info)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Public Sub TaskMng_Ac()
Try
'TaskManager (Görev Yöneticisini) Aç
Dim reg As Microsoft.Win32.RegistryKey
Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
reg = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(subKey)
reg.DeleteValue("DisableTaskMgr")
reg.SetValue("DisableTaskMgr", 0)
reg.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Public Sub TaskMng_Kilitle()
'TaskManager (Görev Yöneticisini) Kilitle
Try
Dim reg As Microsoft.Win32.RegistryKey
Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
reg = Microsoft.Win32.Registry.CurrentUser.CreateSubKey(subKey)
reg.SetValue("DisableTaskMgr", "1")
reg.Close()
TaskMngKapalı = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class </textarea></div>
Erdoğan Aslanhttp://www.blogger.com/profile/05018666158036710870noreply@blogger.com0