Blokir (disable) Windows 10 Update Service

Windows 10 memang bandel, sudah dimatikan service ‘Windows Update’ pada control panel-Administrative tools-Services, tetap mengupdate otomatis. Pada situasi tertentu, dimana koneksi internet (baik memakai media wifi / kabel) dibatasi ‘quota’ alias berbayar. Maka perlu dilakukan pemblokiran layanan /servis Update tsb.

Tetapi, fitur dan security patch (penambal lubang keamanan) pada System akan mati, jika anda tidak peduli silakan ikuti langkah-langkah berikut ini.

Pastikan OFFLINE dulu, matikan WIFI atau Disable Adapter Ethernetnya. Atau cabut kabel LAN. read more

Mirror HAN PS3xploit

Saya baru saja menghost mirror HAN untuk PS3 exploit di situs ini.

Silakan bookmark di mesin PS3 anda alamat ini: http://twiranto.com/ps3

Untuk itu, silakan koneksikan mesin PS3 anda melalui Wifi/LAN dan masukkan pada browser alamat diatas.

Tata cara penggunaan HAN PS3 silakan cari di Youtube.

Bagi yang belum tahu, HAN PS3 Exploit berguna memainkan game non-ori dengan format .pkg pada mesin Play Station 3 OFW (Original FirmWare $0ny). Jadi aman untuk main games online, tanpa khawatir di banned seperti dimesin PS3 Cfw (custom firmware, cobra, rebug, mamba dll). Biasaya barcode mesin 0fw bernomor 3xxx type SLIM. read more

Membackup cached email address pada Microsoft Outlook 2010 2013 2016

Dulu sewaktu saya masih freelance; akhir tahun 90an, saya jarang sekali menggunakan Microsoft Outlook (paketan Microsoft Office), ataupun versi Expressnya. Lebih senang menggunakan Eudora atau The BAT! sebagai email client

Tetapi, setelah memasuki dunia `tetap` dimana standarisasi kantoran mayoritas saat itu menggunakan Lotus cc-mail & Microsoft Outlook, dengan sangat terpaksa saya mulai belajar trouble-shoot Microsoft Outlook. Untuk cara pemakaiaannya amatlah mudah, sama seperti email-client kebanyakan.

read more

Pergeseran Budaya Tekno Informasi

ISP akan memberikan internet media kit dalam bentuk beberapa disket 3.5 inch. DIdalamnya kita bisa menemui Browser, Chat app, dan Email CLient. Biasanya ga jauh-jauh dari Netscape Navigator sebagai browser, Eudora sebagai mail-client, dan mIRC sebagai chat-apps. Yang proses installasinya relatif mudah untuk Windows 3.x.

Driver Ethernet TP-LINK TF-3200 Untuk Windows 10 x64

Karena onboard ethernet pada motherboard saya aneh. Dimana koneksi tidak setabil, dengan ciri-ciri menyalin /mencopy file besar speednya hanya 256KBps, akhirnya saya memutuskan untuk mengganti dengan ethernet pci 32bit merek TP-Link dengan model TF-3200.

Tetapi, karena ethernet pci ini tipe murah, tidak sampai 80 ribu rupiah, saya agak curiga dengan kompatibilitasnya dengan Windows 10 x64. Dan benar saja, pada driver mini-CD nya tidak terdapat driver diatas Windows 7 x64. Lalu saya browse ke situs tp-link.com; dan benar saja, persis sama dengan driver bawaan, tidak ada driver untuk 64 bit Windows 10. 🙁 🙁 read more

All in one IPS IDS Router Gateway Antivirus dengan ClearOS 7 Community

Biasanya saya lebih suka distro jadul semacam Smoothwall dan IPCop, tetapi kali ini saya menggunakan ClearOS 7 Community pada mesin virtual untuk melayani 110an client pada virtual mesin yang hidup di mesin PC era DDR2. 😀

clearos-2jpg

Host OS menggunakan Windows Server jadul; dipersenjatai oleh Virtual Box versi 5.x + appliance (untuk remote via RDP). ISP menggunakan Biznet 30 Mbps; entah layanan yang mana. Komunikasi antara modem dengan COS adalah mode bridge. DIAL PPPoE dilakukan di COS. Router COS ini menggantikan Router TP-Link TL-WA830RE yang support multi-WAN. read more

Fungsi Terbilang pada ASP 3 classic

Saya mengalami kesulitan dalam membuat fungsi terbilang untuk ASP 3 klassik. Yang banyak adalah fungsi terbilang xlam untuk EXCEL. Untuk itu saya modifikasi fungsi terbilang yang banyak bertebaran di google sehingga menghasilkan fungsi terbilang yang berjalan mulus untuk ASP 3 Classic/Klasik/Native 😀

Daripada ngoding lagi ga karuan, copas saja deh 😀 yang penting universal function

Tw

Cukup gunakan fungsi <!–#include file=”namafile.asp”–> dan gunakan fungsi response.write terbilang(1000000) akan menghasilkan tulisan Satu juta rupiah.

<% Function Val( myString ) ' Val Function for VBScript (aka ParseInt Function in VBScript). ' By Denis St-Pierre. ' Natively VBScript has no function to extract numbers from a string. ' Based shamelessly on MS' Helpfile example on RegExp object. ' CAVEAT: Returns only the *last* match found ' (or, with objRE.Global = False, only the *first* match) Dim colMatches, objMatch, objRE, strPattern ' Default if no numbers are found Val = 0 strPattern = "[-+0-9]+" ' Numbers positive and negative; use ' "ˆ[-+0-9]+" to emulate Rexx' Value() ' function, which returns 0 unless the ' string starts with a number or sign. Set objRE = New RegExp ' Create regular expression object. objRE.Pattern = strPattern ' Set pattern. objRE.IgnoreCase = True ' Set case insensitivity. objRE.Global = True ' Set global applicability: ' True => return last match only, ' False => return first match only. Set colMatches = objRE.Execute( myString ) ' Execute search. For Each objMatch In colMatches ' Iterate Matches collection. Val = objMatch.Value Next Set objRE= Nothing End Function Function Terbilang(Angka ) Dim n1 Dim nangka, Strjmlhuruf, intpecahan , strpecahan, urai, Bil1, strtot, bil2 Dim x, Y, z, i For i = 1 To Len(Angka) If Not Mid(Angka, i, 1) = "." Then nangka = nangka + Mid(Angka, i, 1) End If Next If Len(LTrim(nangka)) = 0 Then terbit = "Nol Rupiah" Exit Function End If Strjmlhuruf = LTrim(RTrim((nangka))) intpecahan = Val(Right(Mid(Angka, 15, 2), 2)) If (intpecahan = 0) Then strpecahan = "" End If x = 0 Y = 0 urai = "" While (x < Len(Strjmlhuruf)) x = x + 1 strtot = Mid(Strjmlhuruf, x, 1) Y = Y + Val(strtot) z = Len(Strjmlhuruf) - x + 1 Select Case Val(strtot) Case 1 If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then Bil1 = "Satu " ElseIf (z = 4) Then If (x = 1) Then Bil1 = "Se" Else Bil1 = "Satu " End If ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then x = x + 1 strtot = Mid(Strjmlhuruf, x, 1) z = Len(Strjmlhuruf) - x + 1 bil2 = "" Select Case Val(strtot) Case 0 Bil1 = "Sepuluh " Case 1 Bil1 = "Sebelas " Case 2 Bil1 = "Dua Belas " Case 3 Bil1 = "Tiga Belas " Case 4 Bil1 = "Empat Belas " Case 5 Bil1 = "Lima Belas " Case 6 Bil1 = "Enam Belas " Case 7 Bil1 = "Tujuh Belas " Case 8 Bil1 = "Delapan Belas " Case 9 Bil1 = "Sembilan Belas " End Select Else Bil1 = "Se" End If Case 2 Bil1 = "Dua " Case 3 Bil1 = "Tiga " Case 4 Bil1 = "Empat " Case 5 Bil1 = "Lima " Case 6 Bil1 = "Enam " Case 7 Bil1 = "Tujuh " Case 8 Bil1 = "Delapan " Case 9 Bil1 = "Sembilan " Case Else Bil1 = "" End Select If (Val(strtot) > 0) Then If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then bil2 = "Puluh " ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then bil2 = "Ratus " Else bil2 = "" End If Else bil2 = "" End If If (Y > 0) Then Select Case z Case 4 bil2 = bil2 + "Ribu " Y = 0 Case 7 bil2 = bil2 + "Juta " Y = 0 Case 10 bil2 = bil2 + "Milyar " Y = 0 Case 13 bil2 = bil2 + "Trilyun " Y = 0 End Select End If urai = urai + Bil1 + bil2 Wend urai = urai + strpecahan Terbilang = urai & "Rupiah " Terbilang = LCase(Terbilang) n1 = UCase(Left(Terbilang, 1)) Terbilang = n1 & Mid(Terbilang, 2, Len(Terbilang) - 1) End Function %> read more

Menggunakan Triple (3) Monitor dalam 1 PC dengan budget murah

Beberapa waktu lalu, saya diminta-tolong untuk menemani ke Harco Mangga-Dua untuk merakit komputer, karena ybs kurang pede kalau jalan sendiri. Kebutuhannya sangatlah umum, yakni Microsoft-Office based, beserta Torrent.

Yang menjadi perhatian khusus adalah, penggunakan triple (tiga) monitor dalam satu PC dalam modus extend, maksudnya: Desktop akan tersebar ke tiga monitor tsb.

Karena budget tidak bisa lebih, dan memang bukan buat PC-gaming, saya memilih VGA termurah yang tercepat bisa diambil dari supplier; karena memang waktu sudah cukup sore. Dan datang lah Asus AMD HD 6450 Silent 1 Gb vram. read more

Penampakan cacing mengambang pada mata

Sering melihat penampakkan ada penampakkan cacing yang berseliweran (bergerak-gerak) ketika pencahayaan terang? Terkadang ada dan terkadang hilang? Sayang sekali, anda (seperti saya) penderita gangguan penglihatan yang bahasa kerennya Eye Floaters.

floaters2.images

Saya ingat, ketika kecil pernah sakit mata, yang menyebabkan mata merah dan agak bengkak disekitar kelopak. Setelah sembuh, saya sering melihat penampakkan aneh-aneh. Pertama kali melihat benda yang berterbangan dimata, saya kira adalah penampakkan makluk halus. Karena lama-lama terbiasa, saya abaikan saja. read more

Zoo Tycoon 1 Full HD

Permainan Zoo Tycoon adalah game `TYCOON` terasik bagi saya untuk dimainkan. Tetapi game ini Masuk ke dalam game kuno/jadul yang tidak mendukung resolusi besar. Tetapi dengan sedikit modifikasi game ini bisa dimainkan dengan resolusi tinggi. Karena monitor saya 1080p atau lazim disebut Full-HD yang beresolusi 1920×1080 pixel, ada sedikit modifikasi pada config Zoo Tycoon agar memaksa game bermain di resolusi ini.

Yang perlu di edit adalah file zoo.ini — ada pada folder installasi game tsb. Caranya mudah, tinggal edit config [user] menjadi resolusi tertinggi yang bisa ditampilkan di PC anda. read more