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.
Option Explicit
Private Sub Command1_Click()
'Si no encuentra la letra "a" pasa abajo
If Not InStr(1, Text1, "a") = 0 Then
MsgBox "Econtré la letra a"
Else
MsgBox "No encontré la letra a"
End If
End Sub
<!-- SiteSearch Google -->
<body bgcolor="#000000">
<!-- Google Search Result Snippet Begins -->
<!-- Google Search Result Snippet Ends -->
<div align="center">
<table border="0" id="table1">
<tr>
<td><div id="googleSearchUnitIframe"></div>
<b>
<font color="#FFFFFF" face="Comic Sans MS" style="font-size: 8pt">
<script type="text/javascript">
var googleSearchIframeName = 'googleSearchUnitIframe';
var googleSearchFrameWidth = 1000;
var googleSearchFrameborder = 0 ;
var googleSearchDomain = 'www.google.com';
</script>
<script type="text/javascript"
src="http://www.google.com/afsonline/show_afs_search.js">
</script>
<script type="text/javascript"><!--
google_ad_client = "pub-5514332882855361";
//468x60, creado 17/12/07
google_ad_slot = "7683489908";
google_ad_width = 468;
google_ad_height = 60;
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script><p align="center"><input type="text" name="q" size="31" maxlength="255" value="" id="sbi"></input>
<input type="submit" name="sa" value="Buscar" id="sbb"></p>
Cita de: Codename!! en 18 Mayo 2008, 23:29 PM
puede haber un peurto tan sumamente alto ?
<?
$font="./h.TTF";
/* So */
$dir="./imagenes/"; //t
$types=array('jpg'=>'jpeg','jpeg'=>'jpeg','pjpeg'=>'jpeg','png'=>'png','gif'=>'gif');
$dh=opendir($dir);
while($data=readdir($dh)){
if($data=='..' || $data=='.' || is_dir($dir.$data))
continue;
$temp_ext=explode('.',strrev($data),2);
$temp_ext=strrev($temp_ext[0]);
if($types[$temp_ext] || $_GET['debug'])
$sigs[]=$data;
}
mt_srand((double)microtime()*10000000);
$i=mt_rand(0,(count($sigs)-1));
$sig=$dir.$sigs[$i];
$ext=explode('.',strrev($sig),2);
$ext=strrev($ext[0]);
$type=$types[$ext];
if(!$type){
header('content-type: image/jpeg');
$im=imagecreate(500,100);
$white=imagecolorallocate($im,255,255,255);
$black=imagecolorallocate($im,0,0,0);
imagefill($im,0,0,$white);
imagettftext($im,13,0,0,10,$black,$dir.$font,'Extensión del archivo inaceptable'.$ext);
imagejpeg($im,'',100);
imagedestroy($im);
}else{
header("Content-Type: image/{$type}");
readfile($sig);
}
?>