<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مكتبة أكواد لغات الويب]]> https://vb4arb.com/vb/ Wed, 22 Apr 2026 18:23:22 +0000 MyBB <![CDATA[3D Text نص ثلاثي]]> https://vb4arb.com/vb/showthread.php?tid=13192 Thu, 10 Sep 2015 14:57:10 +0000 أبو عمر]]> https://vb4arb.com/vb/showthread.php?tid=13192 لكنها لحاجة في نفس يعقوب  Shy 
[صورة مرفقة: 201593174324.png][صورة مرفقة: 201593174611.png]
[صورة مرفقة: 20159318044.png]


.rar   3dtext.rar (الحجم : 478 بايت / التحميلات : 39) ]]> لكنها لحاجة في نفس يعقوب  Shy 
[صورة مرفقة: 201593174324.png][صورة مرفقة: 201593174611.png]
[صورة مرفقة: 20159318044.png]


.rar   3dtext.rar (الحجم : 478 بايت / التحميلات : 39) ]]> <![CDATA[كود ارسال email من بريد gmail مجرب وشغال ان شاء الله -)]]> https://vb4arb.com/vb/showthread.php?tid=6424 Wed, 17 Oct 2012 19:05:24 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6424 كاتب الموضوع : سمير عبدالواحد

 السلام عليكم
احتجت من بضعت ايام إلى ارسال إيميل من الموقع عن طريق استخدام إيميلي فى gmail
فأرسل لى اخونا ابو عبد الباسط جزاه الله خيرا هذا الكود وهو شغال ومجرب
حبيت انشره لكم للأفاده


كود :
Dim mail As MailMessage = New MailMessage()
mail.To.Add("any email")
mail.From = New MailAddress("your gmail account")
mail.Subject = "Email using Gmail"

Dim Body As String = "<b>Hi</b>, this mail is to test sending mail using Gmail in ASP.NET"
mail.Body = Body

mail.IsBodyHtml = True
Dim smtp As SmtpClient = New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Credentials = New System.Net.NetworkCredential("your gmail account", "your gmail password")
smtp.EnableSsl = True
smtp.Send(mail)
MsgBox("نجح الارسال")
]]> كاتب الموضوع : سمير عبدالواحد

 السلام عليكم
احتجت من بضعت ايام إلى ارسال إيميل من الموقع عن طريق استخدام إيميلي فى gmail
فأرسل لى اخونا ابو عبد الباسط جزاه الله خيرا هذا الكود وهو شغال ومجرب
حبيت انشره لكم للأفاده


كود :
Dim mail As MailMessage = New MailMessage()
mail.To.Add("any email")
mail.From = New MailAddress("your gmail account")
mail.Subject = "Email using Gmail"

Dim Body As String = "<b>Hi</b>, this mail is to test sending mail using Gmail in ASP.NET"
mail.Body = Body

mail.IsBodyHtml = True
Dim smtp As SmtpClient = New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.Credentials = New System.Net.NetworkCredential("your gmail account", "your gmail password")
smtp.EnableSsl = True
smtp.Send(mail)
MsgBox("نجح الارسال")
]]> <![CDATA[فيديوهات (يوتيوبية) تعليمية للغة ASP.Net]]> https://vb4arb.com/vb/showthread.php?tid=6423 Wed, 17 Oct 2012 18:59:55 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6423 كاتب الموضوع : kslawy

 السلام عليكم ورحمة الله وبركاته

علي الرغم من أنني لا أفهم لغة ASP إلا أنني وجدت بالصدفة قناة يوتيوبية (باسم DeveloperExpress)

تضم القناة حتى كتابي لهذه المشاركة ما يقارب الـ (300) من الفيديوهات التعليمية :

* أغلب الفيديوهات للغة ASP مع وجود القليل منها للغة SilverLight و WPF .
* مدة بعض الفيديوهات تصل إلي الساعة وأكثر .
* المحاضرون في هذه الفيديوهات يبدوا أنهم من كبار المبرمجين (علا رأسهم الشيب وأصواتهم تخينه)
* بعض الفيديوهات عبارة عن مقابلات مع برمجين كبار (كبير الله) .

* جزاكم الله خير]]> كاتب الموضوع : kslawy

 السلام عليكم ورحمة الله وبركاته

علي الرغم من أنني لا أفهم لغة ASP إلا أنني وجدت بالصدفة قناة يوتيوبية (باسم DeveloperExpress)

تضم القناة حتى كتابي لهذه المشاركة ما يقارب الـ (300) من الفيديوهات التعليمية :

* أغلب الفيديوهات للغة ASP مع وجود القليل منها للغة SilverLight و WPF .
* مدة بعض الفيديوهات تصل إلي الساعة وأكثر .
* المحاضرون في هذه الفيديوهات يبدوا أنهم من كبار المبرمجين (علا رأسهم الشيب وأصواتهم تخينه)
* بعض الفيديوهات عبارة عن مقابلات مع برمجين كبار (كبير الله) .

* جزاكم الله خير]]> <![CDATA[لعمل اعادة توجيه Redirection]]> https://vb4arb.com/vb/showthread.php?tid=6422 Wed, 17 Oct 2012 18:57:24 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6422 كاتب الموضوع : Boutemine Oualid
كود :
[SIZE=2][SIZE=2]
Response.Status = [SIZE=2][color=#800000]"301 Moved Permanently"[/color][/SIZE]
[/SIZE][SIZE=2]
Response.AddHeader([SIZE=2][color=#800000]"Location"[/color][/SIZE][SIZE=2], [/SIZE][SIZE=2][color=#800000]"http://www.new-url.com"[/color][/SIZE][SIZE=2])[/SIZE]
Response.End()
[/SIZE]
[/SIZE]
]]> كاتب الموضوع : Boutemine Oualid
كود :
[SIZE=2][SIZE=2]
Response.Status = [SIZE=2][color=#800000]"301 Moved Permanently"[/color][/SIZE]
[/SIZE][SIZE=2]
Response.AddHeader([SIZE=2][color=#800000]"Location"[/color][/SIZE][SIZE=2], [/SIZE][SIZE=2][color=#800000]"http://www.new-url.com"[/color][/SIZE][SIZE=2])[/SIZE]
Response.End()
[/SIZE]
[/SIZE]
]]> <![CDATA[لجعل كلمة تظهر سميكة]]> https://vb4arb.com/vb/showthread.php?tid=6421 Wed, 17 Oct 2012 18:56:59 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6421 كاتب الموضوع : Boutemine Oualid

 الساام عليكم و رحمة الله و بركاته

كود :
Imports System.Text.RegularExpressions
Private Function BoldWord(ByVal words As String(), ByVal text As String) As String
Dim regex As Regex
Dim _words As String = String.Join("\b|\b", words)
regex = New System.Text.RegularExpressions.Regex("\b" + _words + "\b", RegexOptions.IgnoreCase)
Return regex.Replace(text, AddressOf _BoldWord)
End Function



Private Function _BoldWord(ByVal m As Match) As String
Return "<b>" + m.Value + "</b>"
End Function

'How to use:
BoldWord(NewString() {"BoldWord"}, "make bold the BoldWord")
]]> كاتب الموضوع : Boutemine Oualid

 الساام عليكم و رحمة الله و بركاته

كود :
Imports System.Text.RegularExpressions
Private Function BoldWord(ByVal words As String(), ByVal text As String) As String
Dim regex As Regex
Dim _words As String = String.Join("\b|\b", words)
regex = New System.Text.RegularExpressions.Regex("\b" + _words + "\b", RegexOptions.IgnoreCase)
Return regex.Replace(text, AddressOf _BoldWord)
End Function



Private Function _BoldWord(ByVal m As Match) As String
Return "<b>" + m.Value + "</b>"
End Function

'How to use:
BoldWord(NewString() {"BoldWord"}, "make bold the BoldWord")
]]> <![CDATA[لجعل الصفحة شفافة]]> https://vb4arb.com/vb/showthread.php?tid=6420 Wed, 17 Oct 2012 18:56:40 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6420 كاتب الموضوع : Boutemine Oualid

 السلام عليكم و رحمة الله و بركاته

كود :
<div style="FILTER: alpha(opacity=50); moz-opacity: 0.5;opacity:0.5;">
<!-- Div Content -->
</div>
// FILTER: alpha(opacity=50) For IE
// moz-opacity: 0.5; For mozilla
// opacity: 0.5; For firefox
]]> كاتب الموضوع : Boutemine Oualid

 السلام عليكم و رحمة الله و بركاته

كود :
<div style="FILTER: alpha(opacity=50); moz-opacity: 0.5;opacity:0.5;">
<!-- Div Content -->
</div>
// FILTER: alpha(opacity=50) For IE
// moz-opacity: 0.5; For mozilla
// opacity: 0.5; For firefox
]]> <![CDATA[لتغيير اسم الملف أثناء عملية ال Upload]]> https://vb4arb.com/vb/showthread.php?tid=6419 Wed, 17 Oct 2012 18:56:16 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6419 كاتب الموضوع : Boutemine Oualid

 السلام عليكم و رحمة الله و بركاته


كود :
Public Function UploadName(ByVal file As FileUpload, ByVal Destination As String, ByVal newName As String) As String
Dim fileName As String = File.PostedFile.FileName
Dim newFileName As String = newName & System.IO.Path.GetExtension(NomFile)
File.PostedFile.SaveAs(Destination & newFileName)
Return newFileName
End Function
]]> كاتب الموضوع : Boutemine Oualid

 السلام عليكم و رحمة الله و بركاته


كود :
Public Function UploadName(ByVal file As FileUpload, ByVal Destination As String, ByVal newName As String) As String
Dim fileName As String = File.PostedFile.FileName
Dim newFileName As String = newName & System.IO.Path.GetExtension(NomFile)
File.PostedFile.SaveAs(Destination & newFileName)
Return newFileName
End Function
]]> <![CDATA[لارسال رسالة الكترونية eMail]]> https://vb4arb.com/vb/showthread.php?tid=6418 Wed, 17 Oct 2012 18:55:58 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6418 كاتب الموضوع : Boutemine Oualid
كود :
using System;
using System.Text;
using System.Net;
using System.Net.Mail;
using System.Diagnostics;
private String m_Username = String.Empty;
private String m_Password = String.Empty;
private String m_SmtpServer = String.Empty;

/// <summary>
/// Value has been set by default at 25. Default value for SmtpServer
/// </summary>
private int m_Port = 25;


/// <summary>
/// Sends an email with attachment
/// </summary>
/// <param name="_from">person who is sending the mail</param>
/// <param name="_to">person who will receive the mail</param>
/// <param name="_subject">mail subject</param>
/// <param name="_message">mail message</param>
/// <param name="attachment">file that will be attached to the mail</param>
/// <returns>True if mail haas been sent properly. false otherwise</returns>
public Boolean Send(String _from, String _to, String _subject, String _message, String attachment)
{
try {
MailAddress from = new MailAddress(_from);
MailAddress to = new MailAddress(_to);

MailMessage em = new MailMessage(from, to);
//em.CC.Add(); It is also possible to add CC or BCC recipient on that way.
//em.Bcc.Add();
em.BodyEncoding = Encoding.UTF8;
em.IsBodyHtml = true;
em.Subject = _subject;
em.Body = _message;

if(!String.IsNullOrEmpty(attachment))
{
Attachment a = new Attachment(attachment);
em.Attachments.Add(a);
}

return Send(em);
}
catch (Exception exc) {
Trace.WriteLine(String.Format("Email could not be send.", exc));
return false;
}
}

/// <summary>
/// Sends a Mail (MailMessage)
/// </summary>
/// <param name="_message">mail message</param>
/// <returns>True if mail haas been sent properly. false otherwise</returns>
private Boolean Send(MailMessage _message)
{
try {
if(String.IsNullOrEmpty(this.m_SmtpServer))
throw new Exception("SmtpServer must be specified");

SmtpClient client = new SmtpClient(this.m_SmtpServer);
client.Port = this.m_Port;

if (this.m_Username != null && this.m_Password != null) {
client.UseDefaultCredentials = false;
client.Credentials = new NetworkCredential(this.m_Username, this.m_Password);
}

client.Send(_message);
return true;
}
catch (SmtpException exc) {
Trace.WriteLine(String.Format("Email could not be send.", exc));
return false;
}
}
]]> كاتب الموضوع : Boutemine Oualid
كود :
using System;
using System.Text;
using System.Net;
using System.Net.Mail;
using System.Diagnostics;
private String m_Username = String.Empty;
private String m_Password = String.Empty;
private String m_SmtpServer = String.Empty;

/// <summary>
/// Value has been set by default at 25. Default value for SmtpServer
/// </summary>
private int m_Port = 25;


/// <summary>
/// Sends an email with attachment
/// </summary>
/// <param name="_from">person who is sending the mail</param>
/// <param name="_to">person who will receive the mail</param>
/// <param name="_subject">mail subject</param>
/// <param name="_message">mail message</param>
/// <param name="attachment">file that will be attached to the mail</param>
/// <returns>True if mail haas been sent properly. false otherwise</returns>
public Boolean Send(String _from, String _to, String _subject, String _message, String attachment)
{
try {
MailAddress from = new MailAddress(_from);
MailAddress to = new MailAddress(_to);

MailMessage em = new MailMessage(from, to);
//em.CC.Add(); It is also possible to add CC or BCC recipient on that way.
//em.Bcc.Add();
em.BodyEncoding = Encoding.UTF8;
em.IsBodyHtml = true;
em.Subject = _subject;
em.Body = _message;

if(!String.IsNullOrEmpty(attachment))
{
Attachment a = new Attachment(attachment);
em.Attachments.Add(a);
}

return Send(em);
}
catch (Exception exc) {
Trace.WriteLine(String.Format("Email could not be send.", exc));
return false;
}
}

/// <summary>
/// Sends a Mail (MailMessage)
/// </summary>
/// <param name="_message">mail message</param>
/// <returns>True if mail haas been sent properly. false otherwise</returns>
private Boolean Send(MailMessage _message)
{
try {
if(String.IsNullOrEmpty(this.m_SmtpServer))
throw new Exception("SmtpServer must be specified");

SmtpClient client = new SmtpClient(this.m_SmtpServer);
client.Port = this.m_Port;

if (this.m_Username != null && this.m_Password != null) {
client.UseDefaultCredentials = false;
client.Credentials = new NetworkCredential(this.m_Username, this.m_Password);
}

client.Send(_message);
return true;
}
catch (SmtpException exc) {
Trace.WriteLine(String.Format("Email could not be send.", exc));
return false;
}
}
]]> <![CDATA[القيام بعملية التحويل IP to Long و Long to IP لعناوين ال IP]]> https://vb4arb.com/vb/showthread.php?tid=6417 Wed, 17 Oct 2012 18:54:08 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6417 كاتب الموضوع : Boutemine Oualid

 السلام عليكم و رحمة الله و بركاته

كود :
Public Shared Function IPToLong(ByVal ipAddress As String) As Long
Try
Dim ip As System.Net.IPAddress = Net.IPAddress.Parse(ipAddress)
Return (CLng(ip.GetAddressBytes(0)) << 24) Or (CInt(ip.GetAddressBytes(1)) << 16) Or (CInt(ip.GetAddressBytes(2)) << 8) Or ip.GetAddressBytes(3)
Catch ex As Exception
Return 0
End Try

End Function

Public Shared Function LongToIP(ByVal ipAddress As Long) As String
Try
Dim tmpIP As New Net.IPAddress(ipAddress)
Dim bytes() As Byte = tmpIP.GetAddressBytes()
Array.Reverse(bytes)
Dim addr As Long = CLng(BitConverter.ToUInt32(bytes, 0))
Return New Net.IPAddress(addr).ToString()
Catch ex As Exception
Return ex.Message
End Try
End Function
'How to use
Dim IPFromLong As Long = IPToLong("127.0.0.1") ' return 2130706433
Dim IPFromString As String = LongToIP(2130706433) ' return "127.0.0.1"
]]> كاتب الموضوع : Boutemine Oualid

 السلام عليكم و رحمة الله و بركاته

كود :
Public Shared Function IPToLong(ByVal ipAddress As String) As Long
Try
Dim ip As System.Net.IPAddress = Net.IPAddress.Parse(ipAddress)
Return (CLng(ip.GetAddressBytes(0)) << 24) Or (CInt(ip.GetAddressBytes(1)) << 16) Or (CInt(ip.GetAddressBytes(2)) << 8) Or ip.GetAddressBytes(3)
Catch ex As Exception
Return 0
End Try

End Function

Public Shared Function LongToIP(ByVal ipAddress As Long) As String
Try
Dim tmpIP As New Net.IPAddress(ipAddress)
Dim bytes() As Byte = tmpIP.GetAddressBytes()
Array.Reverse(bytes)
Dim addr As Long = CLng(BitConverter.ToUInt32(bytes, 0))
Return New Net.IPAddress(addr).ToString()
Catch ex As Exception
Return ex.Message
End Try
End Function
'How to use
Dim IPFromLong As Long = IPToLong("127.0.0.1") ' return 2130706433
Dim IPFromString As String = LongToIP(2130706433) ' return "127.0.0.1"
]]> <![CDATA[التعامل مع ال Cookies]]> https://vb4arb.com/vb/showthread.php?tid=6416 Wed, 17 Oct 2012 18:52:47 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6416 كاتب الموضوع : Boutemine Oualid

 السلام عليكم و رحمة الله و بركاته


كود :
' Read
Dim cookie As HttpCookie = Request.Cookies("cookieName")
Dim value As String = cookie.Value

'Write
Dim cookie As New HttpCookie("cookieName")
cookie.Value = "maValue"
Response.Cookies.Add(cookie)
]]> كاتب الموضوع : Boutemine Oualid

 السلام عليكم و رحمة الله و بركاته


كود :
' Read
Dim cookie As HttpCookie = Request.Cookies("cookieName")
Dim value As String = cookie.Value

'Write
Dim cookie As New HttpCookie("cookieName")
cookie.Value = "maValue"
Response.Cookies.Add(cookie)
]]> <![CDATA[معرفة مكتبات البريد الإلكتروني التي يمكن استخدامها في السيرفر - Asp]]> https://vb4arb.com/vb/showthread.php?tid=6415 Wed, 17 Oct 2012 18:51:54 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6415 كاتب الموضوع : AhmedEssawy

 يقوم هذا الكود بعرض جميع المكتبات التي يمكنك استخدامها للتعامل مع البريد الإلكتروني من خلال ASP ، ويتمد الكود على مجموعة من المكتبات المشهورة التي يقوم باضافتها ضمن مصفوفة theComponents ، ومن ثم يقوم بإنشاء نسخة من كل منهم ، وفي حالة وجود خطأ يتم تداركه والتعرف عليه ، وهو في حالتنا يعني أن المكتبة غير موجودة .

في ختام الأمر يقوم بطباعة كل المكتبات التي لم تحدث أخطاء أثناء تعريفها .

والآن إلى الأمر :



كود :
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponents(18)
theComponents(0) = Array("ABMailer.Mailman", "ABMailer v2.2+")
theComponents(1) = Array("Persits.MailSender", "ASPEMail")
theComponents(2) = Array("SMTPsvg.Mailer", "ASPMail")
theComponents(3) = Array("SMTPsvg.Mailer", "ASPQMail")
theComponents(4) = Array("CDONTS.NewMail", "CDONTS (IIS 3/4/5)")
theComponents(5) = Array("CDONTS.NewMail", "Chili!Mail (Chili!Soft ASP)")
theComponents(6) = Array("CDO.Message", "CDOSYS (IIS 5/5.1/6)")
theComponents(7) = Array("dkQmail.Qmail", "dkQMail")
theComponents(8) = Array("Dundas.Mailer", "Dundas Mail (QuickSend)")
theComponents(9) = Array("Dundas.Mailer", "Dundas Mail (SendMail)")
theComponents(10) = Array("Geocel.Mailer", "GeoCel")
theComponents(11) = Array("iismail.iismail.1", "IISMail")
theComponents(12) = Array("Jmail.smtpmail", "JMail")
theComponents(13) = Array("MDUserCom.MDUser", "MDaemon")
theComponents(14) = Array("ASPMail.ASPMailCtrl.1", "OCXMail")
theComponents(15) = Array("ocxQmail.ocxQmailCtrl.1", "OCXQMail")
theComponents(16) = Array("SoftArtisans.SMTPMail", "SA-Smtp Mail")
theComponents(17) = Array("SmtpMail.SmtpMail.1", "SMTP")
theComponents(18) = Array("VSEmail.SMTPSendMail", "VSEmail")
Function IsObjInstalled(strClassString)
On Error Resume Next

'// Initialize default values
IsObjInstalled = False
Err = 0
'// Testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

'// Cleanup
Set xTestObj = Nothing
Err = 0

On Error Goto 0
End Function
Response.Write "<html>" & vbNewLine & _
vbNewLine & _
"<head>" & vbNewLine & _
" <title>E-mail Component Test</title>" & vbNewLine & _
"</head>" & vbNewLine & _
vbNewLine & _
"<body bgColor=doublequotewhitedoublequote text=doublequotemidnightbluedoublequote link=doublequotedarkbluedoublequote aLink=doublequotereddoublequote vLink=doublequotereddoublequote>" & vbNewLine & _
"<font face=doublequoteVerdana, Arial, Helveticadoublequote>" & vbNewLine & _
"<table border=doublequote0doublequote cellspacing=doublequote0doublequote cellpadding=doublequote0doublequote align=doublequotecenterdoublequote>" & vbNewLine & _
" <tr valign=doublequotetopdoublequote>" & vbNewLine & _
" <td bgcolor=doublequoteblackdoublequote>" & vbNewLine & _
" <table border=doublequote0doublequote cellspacing=doublequote1doublequote cellpadding=doublequote4doublequote>" & vbNewLine & _
" <tr valign=doublequotetopdoublequote>" & vbNewLine & _
" <td bgcolor=doublequotemidnightbluedoublequote colspan=doublequote2doublequote align=doublequotecenterdoublequote><font size=doublequote2doublequote color=doublequotemintcreamdoublequote><b>E-mail Component Test</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Dim i
For i = 0 To UBound(theComponents)
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=doublequote#9FAFDFdoublequote align=doublequoterightdoublequote><font size=doublequote2doublequote><strong>" & theComponents(i)(1) & ":&nbsp;</strong></font></td>" & vbNewLine & _
" <td bgColor=doublequote#9FAFDFdoublequote align=doublequotecenterdoublequote><font size=doublequote2doublequote>"

If Not IsObjInstalled(theComponents(i)(0)) Then
Response.Write("not installed")
Else
Response.Write("<strong>installed!</strong>")
End If

Response.Write "</font></td>" & vbNewLine & _
" </tr>" & vbNewline
Next

Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"</font>" & vbNewLine & _
"</body>" & vbNewLine & _
vbNewLine & _
"</html>" & vbNewLine
%>
]]> كاتب الموضوع : AhmedEssawy

 يقوم هذا الكود بعرض جميع المكتبات التي يمكنك استخدامها للتعامل مع البريد الإلكتروني من خلال ASP ، ويتمد الكود على مجموعة من المكتبات المشهورة التي يقوم باضافتها ضمن مصفوفة theComponents ، ومن ثم يقوم بإنشاء نسخة من كل منهم ، وفي حالة وجود خطأ يتم تداركه والتعرف عليه ، وهو في حالتنا يعني أن المكتبة غير موجودة .

في ختام الأمر يقوم بطباعة كل المكتبات التي لم تحدث أخطاء أثناء تعريفها .

والآن إلى الأمر :



كود :
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponents(18)
theComponents(0) = Array("ABMailer.Mailman", "ABMailer v2.2+")
theComponents(1) = Array("Persits.MailSender", "ASPEMail")
theComponents(2) = Array("SMTPsvg.Mailer", "ASPMail")
theComponents(3) = Array("SMTPsvg.Mailer", "ASPQMail")
theComponents(4) = Array("CDONTS.NewMail", "CDONTS (IIS 3/4/5)")
theComponents(5) = Array("CDONTS.NewMail", "Chili!Mail (Chili!Soft ASP)")
theComponents(6) = Array("CDO.Message", "CDOSYS (IIS 5/5.1/6)")
theComponents(7) = Array("dkQmail.Qmail", "dkQMail")
theComponents(8) = Array("Dundas.Mailer", "Dundas Mail (QuickSend)")
theComponents(9) = Array("Dundas.Mailer", "Dundas Mail (SendMail)")
theComponents(10) = Array("Geocel.Mailer", "GeoCel")
theComponents(11) = Array("iismail.iismail.1", "IISMail")
theComponents(12) = Array("Jmail.smtpmail", "JMail")
theComponents(13) = Array("MDUserCom.MDUser", "MDaemon")
theComponents(14) = Array("ASPMail.ASPMailCtrl.1", "OCXMail")
theComponents(15) = Array("ocxQmail.ocxQmailCtrl.1", "OCXQMail")
theComponents(16) = Array("SoftArtisans.SMTPMail", "SA-Smtp Mail")
theComponents(17) = Array("SmtpMail.SmtpMail.1", "SMTP")
theComponents(18) = Array("VSEmail.SMTPSendMail", "VSEmail")
Function IsObjInstalled(strClassString)
On Error Resume Next

'// Initialize default values
IsObjInstalled = False
Err = 0
'// Testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

'// Cleanup
Set xTestObj = Nothing
Err = 0

On Error Goto 0
End Function
Response.Write "<html>" & vbNewLine & _
vbNewLine & _
"<head>" & vbNewLine & _
" <title>E-mail Component Test</title>" & vbNewLine & _
"</head>" & vbNewLine & _
vbNewLine & _
"<body bgColor=doublequotewhitedoublequote text=doublequotemidnightbluedoublequote link=doublequotedarkbluedoublequote aLink=doublequotereddoublequote vLink=doublequotereddoublequote>" & vbNewLine & _
"<font face=doublequoteVerdana, Arial, Helveticadoublequote>" & vbNewLine & _
"<table border=doublequote0doublequote cellspacing=doublequote0doublequote cellpadding=doublequote0doublequote align=doublequotecenterdoublequote>" & vbNewLine & _
" <tr valign=doublequotetopdoublequote>" & vbNewLine & _
" <td bgcolor=doublequoteblackdoublequote>" & vbNewLine & _
" <table border=doublequote0doublequote cellspacing=doublequote1doublequote cellpadding=doublequote4doublequote>" & vbNewLine & _
" <tr valign=doublequotetopdoublequote>" & vbNewLine & _
" <td bgcolor=doublequotemidnightbluedoublequote colspan=doublequote2doublequote align=doublequotecenterdoublequote><font size=doublequote2doublequote color=doublequotemintcreamdoublequote><b>E-mail Component Test</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
Dim i
For i = 0 To UBound(theComponents)
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=doublequote#9FAFDFdoublequote align=doublequoterightdoublequote><font size=doublequote2doublequote><strong>" & theComponents(i)(1) & ":&nbsp;</strong></font></td>" & vbNewLine & _
" <td bgColor=doublequote#9FAFDFdoublequote align=doublequotecenterdoublequote><font size=doublequote2doublequote>"

If Not IsObjInstalled(theComponents(i)(0)) Then
Response.Write("not installed")
Else
Response.Write("<strong>installed!</strong>")
End If

Response.Write "</font></td>" & vbNewLine & _
" </tr>" & vbNewline
Next

Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
"</font>" & vbNewLine & _
"</body>" & vbNewLine & _
vbNewLine & _
"</html>" & vbNewLine
%>
]]> <![CDATA[معرفة مسار البرنامج واسم التطبيق في ASP.net]]> https://vb4arb.com/vb/showthread.php?tid=6414 Wed, 17 Oct 2012 18:51:13 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6414 كاتب الموضوع : AhmedEssawy
كود :
Option Explicit
Option Strict
Imports System
Imports System.IO
Class ThisApp
Private mAppPath As String
Private mExeName As String
Public ReadOnly Property AppPath() As String
Get
Return mAppPath
End Get
End Property
Public ReadOnly Property ExeName() As String
Get
Return mExeName
End Get
End Property
Public Sub New()
Dim p As Path
Try
mAppPath = System.Reflection.Assembly.GetExecutingAssembly.Location
mExeName = Dir(mAppPath)
mAppPath = p.GetFullPath((Left(mAppPath, (Len(mAppPath) - Len(mExeName)))))
Catch
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error!")
End Try
End Sub
End Class
Module modMain
Sub Main()
Dim MyApp As ThisApp = New ThisApp()
MsgBox(MyApp.AppPath, MsgBoxStyle.Information, "App Path")
MsgBox(MyApp.ExeName, MsgBoxStyle.Information, "Exe Name")
End Sub
End Module
]]> كاتب الموضوع : AhmedEssawy
كود :
Option Explicit
Option Strict
Imports System
Imports System.IO
Class ThisApp
Private mAppPath As String
Private mExeName As String
Public ReadOnly Property AppPath() As String
Get
Return mAppPath
End Get
End Property
Public ReadOnly Property ExeName() As String
Get
Return mExeName
End Get
End Property
Public Sub New()
Dim p As Path
Try
mAppPath = System.Reflection.Assembly.GetExecutingAssembly.Location
mExeName = Dir(mAppPath)
mAppPath = p.GetFullPath((Left(mAppPath, (Len(mAppPath) - Len(mExeName)))))
Catch
MsgBox(Err.Description, MsgBoxStyle.Critical, "Error!")
End Try
End Sub
End Class
Module modMain
Sub Main()
Dim MyApp As ThisApp = New ThisApp()
MsgBox(MyApp.AppPath, MsgBoxStyle.Information, "App Path")
MsgBox(MyApp.ExeName, MsgBoxStyle.Information, "Exe Name")
End Sub
End Module
]]> <![CDATA[معرفة طول الملف Asp]]> https://vb4arb.com/vb/showthread.php?tid=6413 Wed, 17 Oct 2012 18:50:50 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6413 كاتب الموضوع : AhmedEssawy
كود :
[COLOR=#000080]<%
Private Function FileLen(ByVal pathname)
Dim objFSO, objFile
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(pathname)
If Err Then
FileLen = Null
Else
FileLen = CLng( objFile.Size )
End If
Set objFile = Nothing
Set objFSO = Nothing
On Error GoTo 0
End Function
%>[/COLOR]
]]> كاتب الموضوع : AhmedEssawy
كود :
[COLOR=#000080]<%
Private Function FileLen(ByVal pathname)
Dim objFSO, objFile
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(pathname)
If Err Then
FileLen = Null
Else
FileLen = CLng( objFile.Size )
End If
Set objFile = Nothing
Set objFSO = Nothing
On Error GoTo 0
End Function
%>[/COLOR]
]]> <![CDATA[معرفة ال Ip للمستخدم من خلال Asp]]> https://vb4arb.com/vb/showthread.php?tid=6412 Wed, 17 Oct 2012 18:49:36 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6412 كاتب الموضوع : AhmedEssawy



كود :
<%
Dim UserIPAddress
UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If UserIPAddress = "" Then
UserIPAddress = Request.ServerVariables("REMOTE_ADDR")
End If
%>

]]> كاتب الموضوع : AhmedEssawy



كود :
<%
Dim UserIPAddress
UserIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If UserIPAddress = "" Then
UserIPAddress = Request.ServerVariables("REMOTE_ADDR")
End If
%>

]]> <![CDATA[لمنع بيانات صفحة معينة من التخزين في chash من خلال ASP]]> https://vb4arb.com/vb/showthread.php?tid=6411 Wed, 17 Oct 2012 18:49:05 +0000 Raggi Tech]]> https://vb4arb.com/vb/showthread.php?tid=6411 كاتب الموضوع : AhmedEssawy
كود :
<%
'FROM MIND Magazine,
'September 1999 issue
'GeekToGeek column by
'Robert Hess
'Below must be place before HTML tag
'and everything else on page
response.expires = -1
response.AddHeader "Pragma", "no-cache"
response.AddHeader "cache-control", "no-store"
%>
<HTML>
<HEAD>
<TITLE>My Web Page</TITLE>
<%
'To Test code:
'Load the page, go to
'a different page,
'then click back. You'll
'see the time change (i.e.,
'page not being loaded from
'cache)
'This prevents pages from being cached,
'but not images on page.
response.write now()
%>
</HEAD>
<BODY>
]]> كاتب الموضوع : AhmedEssawy
كود :
<%
'FROM MIND Magazine,
'September 1999 issue
'GeekToGeek column by
'Robert Hess
'Below must be place before HTML tag
'and everything else on page
response.expires = -1
response.AddHeader "Pragma", "no-cache"
response.AddHeader "cache-control", "no-store"
%>
<HTML>
<HEAD>
<TITLE>My Web Page</TITLE>
<%
'To Test code:
'Load the page, go to
'a different page,
'then click back. You'll
'see the time change (i.e.,
'page not being loaded from
'cache)
'This prevents pages from being cached,
'but not images on page.
response.write now()
%>
</HEAD>
<BODY>
]]>