Albertux~# ./Blog

C/C++ Win32API

Win32API C/C++ Documentation:

theForger’s Win32 API Tutorial [english]
Win API Con Clase [spanish]

I made a single uploader application (c/c++ win32api) and web administrator panel (php/javascript/mysql)

Wake Up with WSH and Winamp

WSH (Windows Script Host)
Winamp

// Script: Wake-Up.js
// Author: Albertux (Alberto Isaac Ayala Esquivias)
// Web: http://Albertux.AyalaSoft.com
// Howto: Add this script on Task Scheduler
var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("winamp");
WScript.Sleep(5000);
for (i=0; i<100; i++) {
	WshShell.SendKeys("{UP}"); // Level Up
}
WshShell.SendKeys("j"); // Search your favorite song
WScript.Sleep(5000);
WshShell.SendKeys("even flow"); // Replace with your favorite song
WScript.Sleep(5000);
WshShell.SendKeys("{Enter}"); // Wake Up

This script works fine on Windows Vista for Business with SP1

Instant Boot (ASRock Inc)

Instant Boot is a pretty cool product of ASRock Inc, you can boot on Windows Vista only in 4 seconds.

See the video:

Download (see the model of the motherboard).

XAMPPLITE MINI CONTROL

Using the XAMPPLITE sometimes i have a little trouble with xampp-control.exe to start or stop Apache and MySQL so I decide to make a small program.

Here the source code to compile it in VB.NET 2008:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        xampplite.run_services()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        xampplite.stop_services()
    End Sub
End Class
 
Module xampplite
    Sub run_services()
        run_batch("C:\xampplite\apache_start.bat")
        run_batch("C:\xampplite\mysql_start.bat")
    End Sub
    Sub stop_services()
        run_batch("C:\xampplite\apache_stop.bat")
        run_batch("C:\xampplite\mysql_stop.bat")
    End Sub
    Sub run_batch(ByVal x As String)
        Dim psi As New ProcessStartInfo
        psi.FileName = x
        psi.WorkingDirectory = "C:\xampplite\"
        psi.WindowStyle = ProcessWindowStyle.Hidden
        Process.Start(psi)
    End Sub
End Module

Standalone Executable Perl script

We need a PAR::Packer module of Perl

On GNU/Linux Perl is al ready installed, on Win32 you need to install Strawberry Perl (ActivePerl don’t work).

Now in your system command line (cmd.exe/bash) you need run:

cpan -i pp

You asume yes on all questions (Par::Packer needs another modules to work)

Now you can compile standalone executable perl scripts using this:

pp -o standalone myscript.pl

Note: on Win32 you can change standalone to standalone.exe (take more time make a standalone on Win32).