Postingan

kirim sms ke berbagai operator

Gambar
malam ini tgl 21 nov 2017 saya kirim sms dengan jumlah 5600 sms

pengiriman ke telkomsel, pakai kartu as tidak ada kendala, kirim 1000 sms sekaligus terkirim semua, lama waktu sekitar 2jam

kirim ke tri, saya daftar pake dulu bisa kirim sms ke 660 sms berhasil terkirim semua

kirim ke axis juga saya daftar pake dulu, bisa utk 6 hari sebenarnya, terkiri msemua 215 sms tanpa blokir
kirim ke indosat tidak ada kendala, daftar dulu si *123*11# biar dapat 1450 sms gratis

kirim ke XL, hanya bisa kirim 250 sms, sisanya tidak terkirim,


VBA Macro convert XLS to XLSX

Sub ChangeFileFormat()

    Dim strCurrentFileExt   As String
    Dim strNewFileExt       As String
    Dim objFSO              As Object
    Dim objFolder           As Object
    Dim objFile             As Object
    Dim xlFile              As Workbook
    Dim strNewName          As String
    Dim strFolderPath       As String

    strCurrentFileExt = ".xls"
    strNewFileExt = ".xlsx"

    strFolderPath = "e:\data\garut\xlsxsemua\aswandi"
    If Right(strFolderPath, 1) <> "\" Then
        strFolderPath = strFolderPath & "\"
    End If

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.getfolder(strFolderPath)
    For Each objFile In objFolder.Files
        strNewName = objFile.Name
        If Right(strNewName, Len(strCurrentFileExt)) = strCurrentFileExt Then
            Set xlFile = Workbooks.Open(objFile.Path, , True)
            strNewName = Replace(strNewName, strCurrentFileExt, strNewFileExt)
      …

Menggabungkan multi file excel jadi 1 file

buka excel, klik ALT + F11
inser > module


Sub simpleXlsMerger()Dim bookList As WorkbookDim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As ObjectApplication.ScreenUpdating = FalseSet mergeObj = CreateObject("Scripting.FileSystemObject")
'change folder path of excel files hereSet dirObj = mergeObj.Getfolder("e:\data\sma1banda\ALL")Set filesObj = dirObj.FilesFor Each everyObj In filesObjSet bookList = Workbooks.Open(everyObj)
'change "A2" with cell reference of start point for every files here'for example "B3:IV" to merge all files start from columns B and rows 3'If you're files using more than IV column, change it to the latest column'Also change "A" column on "A65536" to the same column as start pointRange("A2:IV" & Range("A65536").End(xlUp).Row).CopyThisWorkbook.Worksheets(1).Activate
'Do not change the following column. It's not the same column as …

Teknis persiapan real count pilgub DKI 2017

Gambar
kondisi, jumlah TPS pilgub DKI jakarta 13.023 dan ada 44 kecamatan
modem yg disediakan adalah modem 16 port 4 unit, jadi ada 48 modem

namun pertimabangan harus ada modem cadangan, setiap modem 16 port hanya dipakai 12 atau 13 saja, sisanya utk balas sms, total jumlah modem utk terima sms adalah  37

37 nomor ini dibagu utk 44 kecamatan, ada kecamatan yg pake 2 nomor dan ada juga 2 kecamatan pake 1 nomor.

berikut ini distribusinya

Unprotect pdf

Gambar
terkadang ketemu file yg di set tidak bisa di select datanya dan tidak bisa di ekstrak, utk menghilangkan protek tersebut saya pakai PDF Password Remover, puluhan file bisa kurang dari 1 menit.

gammu 1.38 update desember 2016

hari ini tgl 13 desember 2016, telah dirilis Gammu 1.38.0, hal yg paling menyenangkan dari versi sebelumnya adalah tersedianya versi windows binari. windows binari ini dirilis lagi setelah sebelumnya sempet beberapa tahun hanya rilis versi linux binari. mantap

aswandi.or,id

modem 3g untuk sms gateway

Gambar
kemaren beli 3 modem ZTE Vodafone K3772-Z HSUPA 7.2 MbpsZTE Vodafone K3570-Z HSDPA 3.6 MbpsZTE Vodafone K3806-Z USB 3G Modem
rencana mau dipake utk sms gateway, hasilnya ZTE Vodafone K3772-Z HSUPA 7.2 MbpsZTE Vodafone K3806-Z USB 3G Modem bisa langsung dipake sebagai modem sms gateway
sedangkan  ZTE Vodafone K3570-Z HSDPA 3.6 Mbps, bisa juga tapi harus di set manual SMSC nya baru bisa kirim dan terima sms