Los post de un usuario eliminado aparecen como "Visitante"
Saludos
Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Jenag en 13 Diciembre 2012, 19:41 PM
Porque yo también soy ninja y tengo conocimientos del imperio microsoft y desde mi opinión personal donde se meten por norma se suele jod***r todo o casi todo.
¿Si no por que la NASA utiliza GNU/Linux en sus naves y dispositivos en vez de güidows?.
Cita de: Jenag en 13 Diciembre 2012, 19:26 PM
Me parece una decisión muy acertada.
Cita de: Novlucker en 12 Diciembre 2012, 15:12 PMDebes de reemplazar "Novlucker" por el texto retornado desde tu archivo
Cita de: Seazoux en 12 Diciembre 2012, 15:23 PMSeguro que con un par de ajustes lo consigues
Pero, lo necesito en archivo externo para poder editarlo con BAT.
<html>
<HEAD>
<TITLE>LAUNCHER</TITLE>
<script>
function show(myID) {
document.getElementById(myID).style.display = "block";
}
function hide(myID) {
document.getElementById(myID).style.display = "none";
}
</script>
<style type="text/css">
.panel
{
position:absolute;
width:510px;
height:340px;
top:45px;
left:0px;
text-align:center;
background: #fff url('images/fondo.png') repeat;
}
.subp {
width:382px;
height:340px;
position:absolute;
left:260px;
margin-left:-191px;
top:0;
background-color:#e5eecc;
border:solid 1px #c3c3c3;
}
#wbo {
position:absolute;
width:510px;
height:430px;
left:0;
top:0;
background: #000;
display:none;
}
</style>
<style>
body {
width:100%;
height:100%;
margin:0px;
font-family:arial;
font-size:12px;
}
#table {
text-align:center;
position:absolute;
bottom:0px;
left:0px;
}
#td {
width:170px;
}
.bg {
/* Set rules to fill background */
background: #fff url('images/fondo.png') repeat;
/* Set up proportionate scaling */
width: 510px;
height: 340px;
/* Set up positioning */
position: absolute;
top: 45;
left: 0;
}
.logo {
position:absolute;
width:410px;
height:75px;
top:55px;
left:260px;
margin-left:-205px;
}
.logo2 {
position:absolute;
top:135px;
left:260px;
width:180px;
height:32px;
margin-left:-90px;
}
.login {
width:350px;
height:70px;
background: #808080;
position:absolute;
left:260px;
margin-left:-175px;
top:174px;
border: 5px #000 solid;
}
.wbg {
width:510px;
height:45px;
position:absolute;
top:0px;
left:0px;
background: url('images/wbg.png') repeat;
}
@font-face {
font-family: 'xeronregular';
src: url('fonts/xeron.eot');
src: url('fonts/xeron.eot?#iefix') format('embedded-opentype'),
url('fonts/xeron.woff') format('woff'),
url('fonts/xeron.ttf') format('truetype'),
url('fonts/xeron.svg#xeronregular') format('svg');
font-weight: normal;
font-style: normal;
}
.back {
width:510px;
height:45px;
background:#000;
position:absolute;
bottom:0px;
left:0px;
}
#byr {
width:125px;
height:25px;
}
#cerrar {
width:16px;
height:16px;
top:15px;
right:16px;
position:absolute;
}
.ser13 {
position:absolute;
left: 260px;
margin-left:-90px;
bottom:55px;
}
#wbod {
width:100%;
height:100%;
}
#back {
position:relative;
top:5px;
}
</style>
<HTA:APPLICATION
ID="HTA"
APPLICATIONNAME="HTA"
BORDER="none"
BORDER STYLE="raised"
CAPTION="yes"
SCROLL="no"
SELECTION="no">
<body bgcolor="000000">
</HEAD>
<body>
<center>
<script language="VBScript">
Function ejecutar()
set objshell = createobject("wscript.shell")
appdata = objshell.expandenvironmentstrings("%APPDATA%")
objshell.run appdata & "\Ikillnukes\MC.bat"
End Function
Function opciones()
set objshell = createobject("wscript.shell")
appdata = objshell.expandenvironmentstrings("%APPDATA%")
objshell.run appdata & "\Ikillnukes\OPT.hta"
End Function
</script>
<div id="wbod">
<div class="wbg">
<h2 style="color:#fff; font-family: 'xeronregular'; position:absolute; top:3px; left:16px; width:510px; margin-left:-260px; left:260px;"><b>HugeCraft</b><b style="font-family: 'arial';">™</b><b> - Login</b></h2>
<img src="images/cerrar0.png" onmouseover="this.src='images/cerrar1.png';" onmouseout="this.src='images/cerrar0.png';" onClick="javascript:window.close();" name="btnCerrar" id="cerrar" />
</div>
<div class="bg">
</div>
<img src="images\image2.png" class="logo" />
<img src="images\text.png" class="logo2" />
<div class="login">
<center><br>Usuario: <input type="text" style="width:200px;" name="username" /></center>
</div>
<img src="images/serie1.png" onmouseover="this.src='images/serie2.png';" onmouseout="this.src='images/serie1.png';" onClick="show('serie')" name="btnSerie" class="ser13" />
<div class="back">
<table id="table">
<tr><td id="td">
<img src="images/opciones1.png" onmouseover="this.src='images/opciones2.png';" onmouseout="this.src='images/opciones1.png';" onClick="show('wbo')" name="btnOpciones" id="byr" />
</td><td id="td">
<img src="images/jugar1.png" onmouseover="this.src='images/jugar2.png';" onmouseout="this.src='images/jugar1.png';" onclick="ejecutar()" name="btnEjecutar" id="byr" />
</td><td id="td">
<img src="images/creditos1.png" onmouseover="this.src='images/creditos2.png';" onmouseout="this.src='images/creditos1.png';" onClick="show('credit')" name="btnCreditos" id="byr" />
</td></tr></table>
</div>
<div id="wbo">
<div class="wbg">
<h2 style="color:#fff; font-family: 'xeronregular'; position:absolute; top:3px; left:16px; width:510px; margin-left:-260px; left:260px;"><b>HugeCraft</b><b style="font-family: 'arial';">™</b><b> - Opciones</b></h2>
</div>
<div class="panel"><div class="subp">Hello world!</div></div>
<div class="back">
<img src="images/back1.png" onmouseover="this.src='images/back2.png';" onmouseout="this.src='images/back1.png';" onClick="hide('wbo')" name="btnCreditos" id="back" />
</div>
</div>
</div>
<script language="VBScript">
Sub Window_Onload
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
intLeft = (intHorizontal - 510) / 2
intTop = (intVertical - 430) / 2
window.resizeTo 510,430
window.moveTo intLeft, intTop
document.getElementById("username").value = "Novlucker"
End Sub
</script>
</center>
</body>
</html>
Cita de: Novlucker en 10 Diciembre 2012, 01:53 AM
Sobre tu problema con el leer, por que no tienes una sola función leer? desde vbs también puedes utilizar getelementbyid