language
James Whitehead
Set myRange = Selection.Range
myRange.WholeStory
' myRange.Text = "" ********************************************************
'****************************************************************
ActiveWindow.View.Type = wdWebView
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Selection.Font.Color = wdColorWhite
Selection.Font.Name = "Gill Sans MT"
Selection.Font.Size = 6
ActiveDocument.ShowGrammaticalErrors = False
ActiveDocument.ShowSpellingErrors = False
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(1.13)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With
With Selection.ParagraphFormat
.RightIndent = InchesToPoints(0.97)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With
' ******************** while *****************
'***********clear out data *******************
'******************add ascii****************
Dim s(500)
Randomize
For x = 0 To 500
s(x) = Chr((Rnd * 224) + 31)
Next
'now find most important
' start this @ 224
a = Rnd * 100
c = Chr((Rnd * 224) + 31)
For x = 127 To a + 127
s(x) = c
Next
a = Rnd * 80
c = Chr((Rnd * 224) + 31)
For x = 227 To a + 227
s(x) = c
Next
a = Rnd * 60
c = Chr((Rnd * 224) + 31)
For x = 227 + 60 To a + 227 + 60
s(x) = c
Next
a = Rnd * 40
c = Chr((Rnd * 224) + 31)
For x = 227 + 100 To a + 227 + 100
s(x) = c
Next
a = Rnd * 20
c = Chr((Rnd * 224) + 31)
For x = 367 To a + 367
s(x) = c
Next
a = Rnd * 15
c = Chr((Rnd * 224) + 31)
For x = 400 To a + 400
s(x) = c
Next
a = Rnd * 15
c = Chr((Rnd * 224) + 31)
For x = 415 To a + 415
s(x) = c
Next
a = Rnd * 15
c = Chr((Rnd * 224) + 31)
For x = 425 To a + 425
s(x) = c
Next
'****************************** final clear up
c = 31
For x = 0 To 224
s(x) = Chr(c)
c = c + 1
Next
'For x = 300 To 380
' s(x) = Chr(32)
' c = c + 1
'Next
'a = "" ********************************************************
For x = 0 To 50000
a = a %26 s(Rnd * 500)
Next
myRange.Text = a
' place this also in on open macro
Application.OnTime When:=Now + TimeValue("00:00:05"), Name:="Module1.sys"
End Sub
Post Reply
5
Name: me (m...@word.com)
Date: Thu 28 Dec 2006 11:34:08 GMT
Subject: word
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 12/28/2006 by Business Center User
'
Set myRange = Selection.Range
myRange.WholeStory
myRange.Text = ""
'****************************************************************
ActiveWindow.View.Type = wdWebView
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveDocument.Background.Fill.Visible = msoTrue
ActiveDocument.Background.Fill.Solid
Selection.Font.Color = wdColorWhite
Selection.Font.Name = "Gill Sans MT"
Selection.Font.Size = 6
ActiveDocument.ShowGrammaticalErrors = False
ActiveDocument.ShowSpellingErrors = False
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(1.13)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With
With Selection.ParagraphFormat
.RightIndent = InchesToPoints(0.97)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With
' ******************** while *****************
'***********clear out data *******************
'******************add ascii****************
Dim s(500)
Randomize
For x = 0 To 500
s(x) = Chr((Rnd * 224) + 31)
Next
'now find most important
' start this @ 224
a = Rnd * 100
c = Chr((Rnd * 224) + 31)
For x = 127 To a + 127
s(x) = c
Next
a = Rnd * 80
c = Chr((Rnd * 224) + 31)
For x = 227 To a + 227
s(x) = c
Next
a = Rnd * 60
c = Chr((Rnd * 224) + 31)
For x = 227 + 60 To a + 227 + 60
s(x) = c
Next
a = Rnd * 40
c = Chr((Rnd * 224) + 31)
For x = 227 + 100 To a + 227 + 100
s(x) = c
Next
a = Rnd * 20
c = Chr((Rnd * 224) + 31)
For x = 367 To a + 367
s(x) = c
Next
a = Rnd * 15
c = Chr((Rnd * 224) + 31)
For x = 400 To a + 400
s(x) = c
Next
a = Rnd * 15
c = Chr((Rnd * 224) + 31)
For x = 415 To a + 415
s(x) = c
Next
a = Rnd * 15
c = Chr((Rnd * 224) + 31)
For x = 425 To a + 425
s(x) = c
Next
'****************************** final clear up
c = 31
For x = 0 To 224
s(x) = Chr(c)
c = c + 1
Next
'For x = 300 To 380
' s(x) = Chr(32)
' c = c + 1
'Next
a = ""
For x = 0 To 50000
a = a %26 s(Rnd * 500)
Next
myRange.Text = a
End Sub
'*********************************************
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 12/28/2006 by Business Center User
'
With Selection.Font
.Name = "Gill Sans MT"
.Size = 6
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorWhite
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationShimmer
End With
End Sub
Post Reply
4
Name: tsd (t...@tsd.com)
Date: Wed 27 Dec 2006 11:27:25 GMT
Subject: tsd1
%3CHTML%3E%3CHEAD%3E%3CTITLE%3E__________%3C/TITLE%3E
%3CSCRIPT LANGUAGE="VBScript"%3E
'********************* ascii pool init******************************
dim s(500)
randomize
for x = 0 to 500
s(x) = chr((rnd*126)+31)
next
'now find most important
' start this @ 128
a = rnd*100
c = chr((rnd*126)+31)
for x = 127 to a + 127
s(x) = c
next
a = rnd*80
c = chr((rnd*126)+31)
for x = 227 to a + 227
s(x) = c
next
a = rnd*60
c = chr((rnd*126)+31)
for x = 227+60 to a + 227+60
s(x) = c
next
a = rnd*40
c = chr((rnd*126)+31)
for x = 227+100 to a + 227+100
s(x) = c
next
a = rnd*20
c = chr((rnd*126)+31)
for x = 367 to a + 367
s(x) = c
next
a = rnd*15
c = chr((rnd*126)+31)
for x = 400 to a + 400
s(x) = c
next
a = rnd*15
c = chr((rnd*126)+31)
for x = 415 to a + 415
s(x) = c
next
a = rnd*15
c = chr((rnd*126)+31)
for x = 425 to a + 425
s(x) = c
next
'****************************** final clear up
c = 32
for x = 0 to 127
s(x) = chr(c)
c = c+ 1
next
'************************************************
'*******************************************************************
title = ""
for x = 0 to 12
title = title %26 s(rnd*500)
next
mystring = "%3CHTML%3E %3CHEAD%3E%3CTITLE%3E" %26 title %26 "%3C/TITLE%3E"
mystring = mystring %26 "%3Cmeta http-equiv=" %26 Chr(34) %26 "page-exit"
%26 Chr(34) %26 " content = " %26 Chr(34) %26 "blendtrans(duration
= 8)" %26 chr(34) %26 "%3E"
mystring = mystring %26 "%3C/HEAD%3E%3CBODY%3E"
mystring = mystring %26 "%3CBODY BGCOLOR= " %26 Chr(34) %26 "#000000" %26
Chr(34) %26 "%3E"
mystring = mystring %26 "%3CFONT FACE=" %26 Chr(34) %26 "Gill sans, Arial,
sans serif"%26 Chr(34) %26 "SIZE=1 color = " %26 chr(34) %26
"#ffffff" %26 chr(34) %26 "%3E"
mystring = mystring %26 "%3Cp ALIGN=JUSTIFY style= " %26 Chr(34) %26
"margin-left: 20%; margin-right:30%" %26 Chr(34) %26 "%3E"
' ********************** build the string *****************************
'mystring = mystring %26 "test"
for x = 0 to 12000
mystring = mystring %26 s(rnd*500)
next
'*********************** end of build ************************************
mystring = mystring %26 "%3C/P%3E %3C/BODY%3E %3C/HTML%3E"
Document.write (mystring)
%3C/SCRIPT%3E
%3C/HEAD%3E
%3CBODY%3E
%3Cscript language = "vbscript"%3E
Sub mysub()
document.location.reload()
End Sub
x = window.setinterval("mysub()",12000)
%3C/script%3E
%3C/BODY%3E
%3C/HTML%3E
Post Reply
3
Name: me (m...@me.com)
Date: Wed 27 Dec 2006 10:49:06 GMT
Subject: test1
dim s(500)
randomize
for x = 0 to 500
s(x) = chr((rnd*126)+31)
next
'now find most important
' start this @ 128
a = rnd*100
c = chr((rnd*126)+31)
for x = 127 to a + 127
s(x) = c
next
a = rnd*80
c = chr((rnd*126)+31)
for x = 227 to a + 227
s(x) = c
next
a = rnd*60
c = chr((rnd*126)+31)
for x = 227+60 to a + 227+60
s(x) = c
next
a = rnd*40
c = chr((rnd*126)+31)
for x = 227+100 to a + 227+100
s(x) = c
next
a = rnd*20
c = chr((rnd*126)+31)
for x = 367 to a + 367
s(x) = c
next
a = rnd*15
c = chr((rnd*126)+31)
for x = 400 to a + 400
s(x) = c
next
a = rnd*15
c = chr((rnd*126)+31)
for x = 415 to a + 415
s(x) = c
next
a = rnd*15
c = chr((rnd*126)+31)
for x = 425 to a + 425
s(x) = c
next
c = 32
for x = 0 to 127
s(x) = chr(c)
c = c+ 1
next